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Monitors: 

Making  The 
Right  Choice 

Canfleld 

An  exciting,  tiigti-stakes 
strategy  game  for  IBM 
PC  and  compatibles, 
Commodore  64,  Atari, 
I  Apple  II  series,  and  Amiga 

Apple's  HyperCard 
A  new  power, 
a  new  approach 

Time  Stamp  For  IBM  PC 
Keep  files  updated 
the  easy  way 

Sprite  Grabber 
|For  The  64 
Convert  screen  images 
into  sprites 

AmigaView: 

New  products  at  AmiExpo 
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The  wait  is  over...! 

but  the  excitement 
has  just  begun. 
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iVX  of  Destiny  sets  the  new  standard  (c^  role- 
playing  games.  No  other  game  can  o^r>- 
you  as  beautifully  detailed  a  world         •  * 
or  as  exciting  an  adventure. 
Ultima  V  is  the  game  for  all 
ro!e-playing  gamers:  Warriors 
of  Destiny  will  enchant  the 
novice  and  challenge  the  expert. 

Highlights  of  Ultima  V 

•  Powerful  new  combat  and  magic  ^ 
systems,  increasing  in  sophistication 
as  your  skill  increases. 

•  Over  twice  the  graphic  detail,  anima- 
tion and  sound  efTects  of  earlier  games.      '^.^^ 

•  Hundreds  of  truly  life-like  people  who  can 
carry  on  complex  conversations 
and  intcractiohS--..,^-     .-..-'       . 
with  yo' 
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Screen  displays  shown  from  Ihe 
Apple™.  Olticrsmay  varjp. 
Aliows  the  lisc  of  Ultima  IV 
characters-  No  previous  Ultima 
evi>t*ricnce  reqiut'ofl. 
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If  you've  ever  gone  shopping  for  a 
computer,  you  know  you  huve  to  buy  a 
lot  more  than  a  computer  before  you  can 
start  computing. 

All  those  other  little  items  such  as 
expansion  slots,  additional  graphics 
boards,  more  memory,  a  monitor,  moni- 
tor stand,  print  spooler  and  mouse  add  a 
lot  more  than  a  little  to  the  cost.  And 
that's  not  counting  the  small  fortune  you 
can  spend  on  software. 

If  )Ou'd  rather  not  spend  the  price  of 
a  small  car  on  a  computer,  then  consider 
the  AMSTRAD  PC  1S12.  You'll  see  very 
quickly  why  AMSTRAD  computers  are 
Europe's  best  selling  computers.*  (That's 

'.Wjwrri'.  iHtprtiittiimiiJ  Dulii  Ctfrfi. 


right  —  we  even  outsell  IBM.) 
Everything  you  need.  In  two  boxes. 

One  reason  you'll  love  the  PC  1512  is 
because  it  comes  with  virtually  every- 
thing you'll  need  to  begin  computing 
within  minutes  after  you  take  it  out  of  the 
box.  You  not  only  get  a  high  resolution 
monitor  (16  grey  level  or  Color  RGB),  you 
also  get  lots  of  software  —  MS  DOS,  DOS 
Plus.  GEM  Desktop,  LOCOMOTIVE 
Basic2  and  GEM  Paint.  For  business  and 
persona!  needs  —  or  for  creating  spec- 
tacular graphics  —  it's  ready  to  go! 

Limitations  not  included. 

Naturally,  the  PC  1512  is  IBM  PC  com- 


patible and  ready  to  r«n  virtually  all  IBM 
software. 

Of  course,  considering  we  include  a 
lot  of  mouse-driven,  windowing  GEM 
software  with  every  PC  1512,  it  seemed 
only  natural  that  we  also  build  in  the 
board  to  run  it.  So  we  did. 

Then  we  threw  in  the  mouse. 

Plus  we've  built  in  additional  expan- 
sion ports,  so  you  can  expand  capabilities 
without  having  to  perform  expensive 
brain  surgery.  You  can  even  upgrade  from 
monochrome  to  Color  RGB  by  simply 
switching,  monitors,  fhe  Pt;  1512  has  the 
capability  built  in  to  run  both. 

At  AMSTRAD,  we  think  it's  ridiculous 


when  you  can 
Mtniy  one  in  two 
affordable  boxes? 


to  nickel  und  dime  :i  customer  to  pieces 
wlicn  he  buys  a  computer. 

The  true  measure  of  genius. 

With  so  many  traditionally  optional 
features  designed  into  the  PC  1512,  it's 
a  remarkable  computer  by  anyone's 
engineering  standards.  But  the  true 
genius  of  the  PC  1512  is  measured  in 
terms  of  something  else.  Its  price. 

You  can  own  a  complete  PC  1512  sys- 
tem, with  everything  you  need  including 
full  expandability  built  in.  for  as  low  as 
S699.  Considering  it  has  5I2K  memory, 
an  8086  processor  and  all  the  versatility 
you  could  want,  we  think  you'll  agree, 
it's  a  brilliant  investment. 


Sec  the  incredible  PC  1512  at  your 
AMSTRAD  Dealersoon.  When  you  sec  how 
much  your  money  can  buy,  you'll  be 
computing  before  you  can  say  "PC  1512!" 


PleasesL'iidmc  the  nameof my  nearest 
AMS'IRAf}  Dealer. 

NAME 


ADDRESS . 
CITY 


STATE . 


ZIP. 


Mailto.-AMSTRAD.  1915  WestrictgeDr., 

Irving,  rx  ■'SO.iS. 
Or  call:  214/518-0668. 


Strokes  Of  Genius. 

London  •  Dallas  •  Paris  •  Madrid 
Sydney  *  Hong  Kong  •  Milan 
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The'*^  Entertainment  Standard 
For  IBM  -  PC's  &  Compatibles 

In  the  earh  '80's  IBM  computer  owners  couldn't  find  any  "fun"  software  on  the  missions  ttiat  require  split-second  timing,  lightning  reflexes  and  intense  con- 
shelves  to  till  tliose  "after  Sus/nass"  hours...  there  just  wasn't  muchoutthere.  centration.  Different  skill  levels  make  it  easy  to  learn,  but  difficult  to  master. 
Then  Microsoft  introduced  "Flight  Simulator",  a  great  program  that's  trained  a  gg  jf  you're  tired  of  sightseeing  and  want  to  eKperience  the  exhilaration  of  high-lech 
whole  generation  ol  armchair  computer  pilots  and  set  the  standard  for  IBM  combat  flight  simulation. . .  look  for  GUNSHIP. . .  the  new  entertain  mert  standard 


entenainment  software.  for  IBM-PC/XT/AT/PS2  and  compatibles  (not  PC-Jr.). 

Bulthisis1987...andsoftwarebuyerswithlB1^-PC'sandcompatiblesarenow  quNSHIP  supports  320x200-tineCGA  (4  color),  EGA  (16  color)  or  Tandy  (16  color) 

looking  for  a  new  challenge. . .  searching  for  excitement. . .  and  innovation.  g^fj  (.gp  be  operated  using  a  joystick  and/or  keyboard  controls.  The  simulation 

Well  the  search  is  over!  requires  256K  of  memory  ,  — 

MicroFrose  Software  presents. ..  GUNSHIP ...  the  attack  helicopter  simuiaiion  f  ^iTrikk  !?rilrp"^  °" 

that  sets  a  new  standard  of  excellence  In  entertainment  software  for  IBM-PC/  ^  ^^'°  °^^^  °™^- 

compatible  software.  GUNSHIP  is  available 

Are  you  bored  with  simple  line  graphics?  GUNSHIP  displays  filled,  solid-object  l°!!'jZ?^l!^^'  ™m       W' 

3D  graphics  im  fine  detail  and  color.  2  yofcall  ul  for '        '  - 

Do  you  need  more  realistic  flight  characteristics?  GUNSHIP  gives  you  the  industry's  locations!  Suggested 

smoothest  animation  with  a  unique  dynamic  configuration  system.  The  faster  fgiail  price  $49.95. 

your  machine  operates,  the  smoother  the  flight  and  animation  of  graphics  ^  product  cannot  be 

will  be.  found  locally,  call  or         

Areyoutlredof  justflyingaroundand[ookingatscenery?lnGUNSHIP,youpilot  write  for  MC/VISA  i bo Uaimnt" Drive,  Hum  Valley,  mo 2i030'(30i) 771-1151 

an  AH-64  Apache  helicopter,  the  modern  Army's  most  lethal  weapon,  on  combat  order.  — 

IB  M  is  a  reg  istered  trademark  ol  Inlernational  Business  Machines,  Inc.  Microsoft  is  a  registered  trademark  of  Microsoft  Corporation.  Flight  Simulator  copyright 

1982, 1984  by  Bruce  Artwick  and  Microsoft  Corporation. 


GUNSHIP  is  available 
from  a  "Valued  Micro- 
Prose  Retailer"  (VMR) 
near  you.  Call  us  for 
locations!  Suggested 


•    » 


IBO  Lakafront  Drive,  Hum  Valley,  1^*0  21030  •  (301)  771-1151 
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Editor's  Notes 


A 


fter  an  association  of  eight  years, 
and  after  a  year  as  Editorial  Director,  I'm 
leaving  COMPUTE!  Publications  to  form 
a  new  company  with  Robert  Lock,  COM- 
PUTEI's  founder. 

Withdrawing,  I  can  see  the  pathways 
that  led  to  COMPUTE!'s  current  status  as 
the  only  remaining  consumer-oriented 
computer  publication  in  America.  I  can 
also  see  the  exciting  growth  and  strength 
of  this  publication,  how  it  matured  under 
Robert's  guidance  from  a  small  quarterly 
to  its  present  position. 

These  pathways,  the  growth  and 
strength,  were  only  aspirations  back  in 
1980  when  I  wrote  some  articles  and  sent 
them  to  COMPUTE!.  The  magazine  had  a 
few  thousand  readers  then  and  was  com- 
peting with  a  handful  of  other  consumer 
publications  for  the  new  home  computing 
audience. 

The  following  year,  Robert  asked  me 
if  I  would  be  interested  in  joining  his 
fledgling  staff  as  an  editor.  I  came  to 
Greensboro  and  worked  with  him  and  the 
half-dozen  other  COMPUTE!  employees. 
Over  the  next  six  years,  he  built  COM- 
PUTE! into  the  significant  publishing 
group  it  is  today:  more  than  200  books  in 
print,  six  separate  magazines,  and  over 
one  million  readers  a  month. 

By  1983  there  were  around  150  maga- 
zines for  consumer  computer  users.  To- 
day, COMPUTE!  alone  addresses  the 
general-interest  computer  audience.  There 
are  several  vertical  publications  which  tar- 
get specific  machines,  but  with  the  recent 
repositioning  of  Family  Computing  toward 
"home  office  computing,"  COMPUTE!  is 
now  the  only  magazine  offering  an  over- 
view of  this  technology  for  the  nontechni- 
cal-, nonbusiness-oriented  reader. 


We  are  grateful  for  the  continued  sup- 
port of  our  readers,  and  agree  with  you 
that  computing  is  too  important  an  issue  to 
be  left  to  the  experts.  In  the  coming  years, 
COMPUTE!  will  continue  to  evolve,  but  it 
will  never  lose  sight  of  its  goal:  to  explore 
and  explain  these  fascinating  machines  for 
the  average  intelligent  person.  In  a  democ- 
racy, of  course,  the  people  make  the  deci- 
sions. We  believe  that  few  forces  in 
contemporary  life  are  more  significant — or 
will  have  greater  long-term  effects — than 
the  impact  of  computers  on  society.  So  it  is 
vital  that  the  public  understand  this  tech- 
nology and,  thereby,  bring  its  collective 
wisdom  to  decisions  about  computing  and 
public  policy. 

COMPUTE!,  of  course,  also  entertains. 
We  have  always  offered  games,  graphics, 
music,  and  other  programs  of  wide  ap- 
peal. But,  in  addition,  we  feature  serious 
applications,  educational  programs,  tuto- 
rials, and  even  philosophical  specula- 
tions. These  traditions  will  continue. 

Over  the  years  COMPUTE!  has  attract- 
ed some  of  the  most  intelligent  and  talent- 
ed writers,  editors,  programmers,  and 
artists  in  the  business.  The  magazine  is 
now  in  their  capable  hands.  I'm  sure  you'll 
find  much  to  enjoy  and  much  to  learn  in 
these  pages  over  the  coming  years. 


&^^ 


Richard  Mansfield 
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The  Sec 


ne story  }>ou  aw  about  to 
)vad  is  (vp/ccil.  llie  sly  new 
titles  from  Aavlade  are  not 

♦ 
"My  name  is^\mold  P  I've  been 
hooked  on  Accolade  since  '85. 
Accolade  c;i\'es  me  a  nisli  tliat 
no  otiier  recrealioiial  software 
can  match.  Mavbe  it's  the 
superior  graphics. . .  niavlie  it's 
the  p!ayabilit\:\Vliatever. . . ; 
I  know  is  I  feel  like  \'m  actu:i 
///'///tjeach  i;ame.  These  aren't 
computer  games.  Tliese  are 
mind-altering  experiences. 
■"]  thought  111}'  habit  wiis 
under  control,  but  those  guys  at 
Accolade  know  my  weaknes.ses. 
Six  new  titles.  Six  new  ways  to 
experience  my  wildest  fantasies. 
I  toid  my  girlfi'ieinl  Friday 
night  w;i5  off.  '.My  dog  ran  away 
. . .  uh . . .  anti  he  stole  all  ni)' 
money!'  She  bought  it,  1  bought 
all  the    ,-AJi^  new  games. 


"Soon  all  the  telltale  signs 
of  an  Accolade  user  were  there. 
I  played  4th  &  Inches. 

Accolade's  action-packed  foot- 
ball game.  I  started  wearing  a 
helmet  at  breaktkst.  leven 
sacked  the  mailman. 


"I  booted  up  Mini-Putt,  the 

wackiest  miniature  goifgame 
in  the  world. The  next  morning 
I  found  myself  in  golf  knickers 
on  the  subw^ay  We  hit  a  tunnel 
and  1  panicked.  1  thought  1  had 
putted  us  into  Hell's  Windmill! 


Pinball  Vtlzard  turned  my 
computer  into  a  virtual  pinball 
parlor  Not  only  could  1  pi  a\' 
abunch  of  killer  pinball  games. 
but  I  could  create  them  ;is  w-ell , 
I  started  answering  the  phone 
iLs'The  Prince  Of  Pinball! 
1  bought  a  cape.  I  couldn't  go 


^^sOfAn 


to  the  laundromat  'cause  I'd 
showtl  all  my  cjuarters  in  the 
tiisk  di'ive. 


"Apollo  18  put  me  in  the  space- 
suit  of  an  iistronaut  in  a  realistic 
depiction  of  an  acaial  Ajiollo 
moon  mission.  My  neighbor 
calletl  the  cops  when  1  started 
picking  up  rocks  in  his  front 
yard,  then  saick  a  Hag  in  his 
lawit  and  claimed  his  birdbath 
Tor  all  mankind! 


"Test  Drive  w;is  no  different. 
It  put  me  behind  the  wheel  of 
ti\-e  of  the  world's  most  exotic 
sporLs  cars  in  a  simulation  that 
let  me  push  each  car  to  its 
limits.  The  next  day  I  hit  a  liair- 
ndsing  (xS  m|)h  in  my  Gremlin 
and  it  caught  fire. 


"'I'ver\thing  came  to  a  head  with 
The  Graphics  Studio,  the 

powerlul  ami  exsy-to-use  paint 
program.  Suddenly  a  man  who 
couldn't  draw  stick  figures  was 
u-ansfoniied  into  a  Michelangelo. 
I  began  we:iring  a  little  beanie 
and  speaking  with  a  French 
accent.  Some  filends  stopped 
by  and  caught  me  pasting  all 
of  my  print-ouis  on  the  ceiling. 

"So  that's  my  stoiy.  My  secret 
lives  are  all  out  in  the  open.  My 
family  is  ir\ing  to  rehabilitate 
nie  with  some  other  boring 
recreational  software,  but  its 
useless.  I  still  sneak  down  to 
the  den  in  llie  middle  of  the 
night  for  a  litde  4th  &  Inches. 
!le\;  once  you've  played 
.Accolade,  you're  addicted!' 

♦ 
Jfwu  know  of  someone  like 
Aniolil  R.  pteciA' feel  free  to 
aiiitcicl  us  at  Accolade  Well 
give  them  details  on  Ijoirtoget 
an  Accolade  Animal' '  T-  shirt 
Just  call  1-800-423-S366. 
la  (A  1-800-732-2212. 

\  ci-rw    \  r\rz 

20K13  Stevens  Creek  Boulevard, 
Cupertino.  CA  95014., 
Telephone:  408-446-5757 
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F-1S  Takeoff  (Control  Tower  View) 


F-16  Night  Flight  with  Radar  and  Attitude       Pilot  Parachuting  to  Safety  (Control 
Indicator  Tower  View) 
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F-ie  Target  Strike  with  Target  Range 
indicator 
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F-18  Carrier  Landing  Approach 


From  the  author  of  Flight  Simulator 
comes  the  state  of  the  art  in  jet 
simulation.  Let  Jet's  unparalleled 
realism  and  programming  depth 
launch  you  into  an  exhilarating  ex- 
perience! 

Realistic  Scenery 

•  Highly  detailed  aircraft  models 
(F-16,  F-18,  MiG-21,  MiG-23) 

•  Multiple  detailed  airports 

•  Detailed  ships  (carrier  &  cruisers) 

•  Detailed  enemy  land  and  sea 
targets 

Realistic  Aircraft  Control 

•  Fly  a  land-based  F-16  or  carrier- 
based  F-18 

Powerful,  gas-guzzling  after- 

bumers 

"Fly  by  Wire"  flight  controls 

Flight  performance  affected  by 

armament  and  fuel  levels 

Realistic  airbrakes  for  quick 

midair  deceleration 


Realistic  Modern  Electronic 
instrumentation 

•  Real  "Heads  Up  Display"  with 
complete  attitude  indicator 

•  Target  range  indicator 

•  Enemy  target  tracking  radar 

•  Multiple  system  status  displays 

Realistic  Combat  Missions 

•  Dogfight  and  target  strike 
missions 

•  Accurate  offensive  and  defensive 
strategic  considerations 

•  Realistic  fuel  constraints 

•  Multiple  advanced  air-to-air  and 
air-to-ground  weapon  systems 

•  Progressive  skill  levels 


See  Your  Dealer,  or  write  or  call  for 
more  information.  Jet  is  available  on 
disk  for  the  IBM  PC  for  $49.95,  and 
for  the  Commodore  64/128  and 
Apple  II  computers  for  $39.95.  For 
direct  orders  please  indicate  which 
computer  version  you  want,  enclose 
the  correct  amount  plus  $2.00  for 
shipping,  and  specify  UPS  or  first 
class  mail  delivery.  Visa,  Master- 
card, American  Express,  and  Diners 
Club  Charges  accepted. 
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t-r^rcji 

'        Simulator 
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Sceperv  Disk 
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Compatible 

Nice  Touches 

•  Functioning  ejection  seat 

•  Full  screen  out-lhe-window  view 
with  instant  zoom  control 

•  Realistic  carrier  catapult 
launches  and  tripwire  landings 
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713  Edgebrook  Drive 
Champaign  IL61820 
(217)359-8482Tele«:206995 

ORDER  LINE:  (800)  637-4983 

(eKcept  in  Illinois) 

Open  7AM  to  7PM  Central  Time 


Computer  Monitors: 

Making  The  Right  Choice 


Clifton  Kornes  ono  Randy  Tnompson 


Whether  i/ou  use  your  computer  for 
word  processing  or  world-class  game 
plm/ing,  your  monitor  is  the  most  es- 
sential component  of  your  system.  No 
matter  what  computer  you  ou'n,  this 
guided  tour  will  help  you  choose  a 
monitor  that  offers  peak  performance 
for  your  needs. 


You'll  use  your  computer's  screen, 
its  monitor,  more  often  than  any- 
thing else  in  your  computer  system. 
It  makes  sense,  then,  to  take  special 
care  when  selecting  a  monitor.  The 
basic  question:  Do  you  want  color 
or  not? 

Color  is,  of  course,  important  if 
you  plan  to  play  games  or  work  with 
graphics.  On  the  other  hand,  all  but 
the  most  expensive  color  monitors 
are  harder  to  read  than  black-and- 
white  (monochrome)  monitors. 
Also,  color  monitors  can  cost  any- 
where from  two  to  five  times  more. 
So,  if  you're  mainly  interested  in 
word  processing,  spreadsheet  work, 
or  other  text- in  tensive  tasks,  you 
might  prefer  the  sharper  and  less 
expensive  monochrome. 

If  you  do  choose  color,  but  in- 
tend to  use  it  often  as  a  text  display, 
you  should  be  sure  you  will  be 
comfortable  reading  text  on  it  over 
extended  periods  of  time.  Is  the  im- 
age stable,  or  does  it  jitter?  Is  it 
sharp,  or  do  the  letters  blur?  There 
are  two  basic  kinds  of  color  moni- 
tors; composite  and  RGB.  Compos- 
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ite,  which  is  a  lot  like  an  ordinary 
color  TV,  is  the  least  expensive.  But, 
as  you  might  expect,  the  more  cost- 
ly RGB  features  colors  which  are 
mixed  more  precisely  and  appear 
much  sharper. 

After  you've  decided  whether 
or  not  you  want  color,  your  final 
decision  about  which  monitor  to 
buy  will  be  strongly  influenced  by 
which  computer  you  use.  Atari  ST 
owners,  for  example,  must. use 
monitors  made  specifically  for  their 
computer  by  Atari.  To  help  simplify 
the  decision-making  process,  here's 
a  list  of  the  monitor  options  avail- 
able, separated  into  computer- 
specific  categories. 

Amiga 

There  are  basically  three  types  of 
video  monitors  that  you  can  use 
with  the  Amiga:  analog  RGB,  digi- 
tal RGB,  and  composite.  All  Amigas 
come  with  RGB  output.  Most 
Amiga  owners  use  analog  RGB 
monitors  because  they  provide  the 
best  picture  and  color  quality.  With 
the  correct  cable,  you  can  use  a 
digital  RGB  monitor  like  those  used 
on  the  IBM  PC  or  Commodore  128. 
These  digital  monitors,  however, 
display  onh'  16  colors  instead  of  the 
Amiga's  full  range  of  4,096. 

The  Amiga  1000  comes  with 
composite  color  output  as  well  as 
RGB.  The  tradeoff  here  involves 
image  quality.  Images  that  appear 
sharp  on  an  RGB  monitor  can  look 
fuzzy  on  a  composite  monitor. 


Since  there  are  more  than  4000 
colors  available,  Amiga  500  owners 
usually  opt  for  RGB  monitors.  The 
Amiga  500  also  comes  with  com- 
posite output,  but  is  monochrome 
composite  only.  To  make  up  for  the 
lack  of  color,  the  monochrome 
composite  output  provides  a  gray 
scale  that  produces  4,096  different 
shade^.  If  you  wish,  you  may  hook 
up  a  color  composite  monitor  to  an 
Amiga  500,  but  you'll  get  a  black- 
and-white  picture.  Monochrome 
composite  monitors  provide  a  sharp 
image  for  text,  but  when  you're 
using  a  computer  capable  of  produc- 
ing outstanding  high-resolution 
graphics  in  over  4000  different  col- 
ors, it's  something  of  a  waste  to  view 
only  shades  of  black  and  white. 

Composite  video  output  is  not 
standard  on  the  2000.  If  you  wish  to 
use  a  composite  monitor,  you  must 
purchase  the  A2060  composite/RF 
modulator  board. 

One  type  of  monitor  worth 
considering  is  a  long-persistence 
(sometimes  called  high-persis- 
tence) monitor.  These  monitors  are 
available  in  both  composite  and 
RGB.  Long-persistence  monitors 
hold  their  picture  longer  than  ordi- 
nary monitors,  thus  displaying  a 
steadier  image.  This  can  be  impor- 
tant when  using  the  Amiga's  spe- 
cial interlace  modes.  With  a  normal 
monitor,  these  extra  high-resolu- 
tion screens  tend  to  jitter.  Although 
more  expensive,  a  long-persistent 
monitor  can  be  worth  the  extra  cost. 


Mwoik 
and  some  play. 


SALES  BY  TYPE 


The  New  OKIDAIA 180  and  the  OKIMArE*20: 
Office  Qualib'  and  Home  Versatility 


When  the  work  you  do 
at  home  needs  to  look  good 
enough  for  the  ofBce,  you  need 
one  of  these  two  printers. 

Get  the  new  OKIDAIA  180 
and  get  crisp  near  letter  quality 
printing  at  time-saving  print 
speeds.  Enjoy  its  easy-to-use 
push-button  tont  panel,  easy 
paper  handling  and  ability  to 
print  on  anything  from  letter- 
head to  four-part  forms. 

And,  for  pure  compatibility, 
use  its  dual  Commodore*' and 
Epson^-compatible  parallel 
interfece. 

Take  home  the  OKIMATE  20 
and  unlock  the  power 
of  color  graphics  and 
24-element  quality. 


Give  life  to  your  letters  with 
sharp  NLQ  printing  and  a  choice 
of  built-in  fonts.  And  add  impact 
to  your  overheads  with  acetates 
in  hundreds  of  colors. 

The  new  OKIDAIA  180  and 
the  OKIMATE  20  both  work 
beautifiilly  with  either  your 
Commodore  64  or  128,  your 
IBM®  PC  or  compatible, 
Tandy®  and  most  Apple® 
computers. 

These  two  printers  bring 
home  the  OKIDAIA  tradition 
of  toughness  you  know  torn 
the  office.  Ai  a  price  that  could 
convince  you  to  buy  both. 

Call  1-800-OKIDAIA,  Ext.  25, 
for  the  name  of  the  retailer 
nearest  you. 


REGISTERED  TRADEMARKS:  OKIDATA.  OkJ  America,  inc..  Marque  deposfe  de  Okl 
America,  Inc.:  OKI.VIATE,  Oki  Electric  Industrj-  Company,  Ui.;  Commodore.  Commodore 
Electronics.  Ltd.;  Apple.  Apple  Computer,  Inc.:  IBM.  International  Business  Viachines  Corp,; 
Tandv,  Tandy,  Inc.:  Epson.  Epson  Equipment  Corp. 
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Apple  II 

With  the  exception  of  the  Apple 
IIGS,  which  has  RGB  output,  there 
is  really  only  one  choice  for  Apple 
He  and  Apple  lie  owners;  a  compos- 
ite monitor.  The  big  decision  here  is 
color  or  monochrome.  Mono- 
chrome offers  a  much  more  read- 
able display  when  it  comes  to  text, 
but  if  you  do  a  lot  of  game  playing, 
a  color  monitor  might  be  worth 
looking  into. 

With  an  RF  modulator,  you  can 
use  your  television  as  a  video  dis- 
play. Although  not  the  best  quality, 
the  family  TV  offers  a  tempting  low- 
priced  alternative  to  a  dedicated 
monitor. 

The  digital  RGB  output  on  the 
IlGS  provides  a  much  clearer  picture 
than  its  composite  output.  Because 
of  the  IlGS's  color  and  graphics  abil- 
ities, it's  advisable  to  use  an  RGB 
monitor  if  you  can  afford  one. 

Atari  (Eight  Bit) 

The  Atari  800  family  of  computers 
can  hook  up  directly  to  a  TV  or  a 
composite  monitor.  (Atari  400s 
have  TV  output  only.)  Using  the 
Atari's  RF  modulated  output,  you 
can  view  your  computer's  screen 
output  via  television  channel  2  or  3. 
To  obtain  the  best  picture,  you 
should  use  a  composite  monitor. 
You  may  connect  either  a  mono- 
chrome or  color  monitor  to  the 
composite  output.  But  because  the 
Atari  is  a  color  computer  with  a 
wide  variety  of  colorful  games 
available,  you'll  probably  want  to 
consider  a  color  monitor. 

Commodore  64 

Commodore  64  users — like  eight- 
bit  Atari  users — have  three  types  of 
monitors  from  which  to  choose. 
First,  with  an  RF  modulator,  you 
can  use  the  family  TV.  The  second 
choice  is  a  monochrome  composite 
monitor,  and  the  third  possibility  is 
a  composite  color  monitor. 

A  TV  provides  a  display  that  is 
satisfactory  for  most  applications, 
but  for  text-intensive  work — like 
word  processing  or  using  spread- 
sheets— either  a  dedicated  mono- 
chrome or  color  monitor  is  a  must. 

The  64's  composite  signal  gen- 
erates a  good,  clear  monochrome 
display,  but  for  those  who  want 
everything — crisp  text  and  color — 
only  a  composite  color  monitor  will 
do.  The  64  has  a  special  type  of 


composite  signal  that  separates 
chroma  (color)  and  luma  (intensi- 
ty). When  this  signal — called  sepa- 
rated composite — is  fed  into  a 
monitor  that  accepts  it  (like  Com- 
modore's 1702/1802),  the  results 
are  outstanding  for  a  computer  in 
the  64's  class. 

Commodore  128 

The  128,  in  addition  to  its  40-column 
64  and  128  video  modes,  has  an  80- 
column  color  mode.  Since  a  high- 
quality  80-column  display 
demands  a  higher-resolution  color 
signal  than  is  possible  with  com- 
posite video — even  separated  com- 
posite— the  128  uses  a  special 
video  chip  (8563)  to  produce  a  digi- 
tal RGB  output  for  its  80-column 
color  screen. 

To  take  advantage  of  both  of 
the  128's  video  modes — composite 
and  digital  RGB — you'll  need  either 
two  monitors,  or  a  monitor  capable 
of  displaying  both  signal  formats. 
Be  sure  that  any  monitor  you're 
planning  to  buy  will  display  both 
composite  and  digital  RGB  signals 
before  you  make  your  purchase, 
since  not  every  monitor  is  capable 
of  displaying  both  types.  The  128's 
RGB  port  is  plug-compatible  with 
the  one  on  IBM's  color/graphics 
adapter,  so  IBM-style  monitors  can 
be  used  with  the  128. 

The  IBM  Standards 

The  IBM  PC's  open  architecture 
makes  it  possible  to  choose  the  type 
of  video  display  you  want  to  use. 
The  computer's  display  circuitry  is 
usually  located — perhaps  with  oth- 
er options — on  an  integrated  circuit 
board  called  a  card.  (On  some  IBM 
compatibles,  the  video  circuitry  is 
built  into  the  system's  mother- 
board.) Video  cards  can  usually  be 
installed  and  removed  without  much 
fuss,  so  it's  easy  to  change  the  type  of 
display  output  you  have  and,  thus, 
the  kind  of  monitor  you  use. 

Today,  in  the  IBM  world,  the 
question  of  which  monitor  to  use 
always  begins  with  the  question  of 
which  video  card  you  have,  or  want 
to  purchase.  In  the  beginning, 
though,  it  was  simple. 

When  IBM  first  introduced  the 
PC,  there  were  only  two  display 
adapters  available — the  IBM  Mono- 
chrome Display  and  Printer  Adapter 
(MDPA)  and 'the  IBM  Color/Gra- 
phics Adapter  (CGA).  The  mono- 


chrome adapter  was  intended  for 
professional  use.  It  produces  a 
clear,  easy-to-read  text  display,  but 
no  graphics.  The  CGA  doesn't  have 
as  fine  a  resolution  as  the  mono- 
chrome adapter,  but  as  the  name 
implies,  it  can  display  color  and 
graphics. 

With  only  two  standards,  mon- 
itor selection  was  easy.  The  mono- 
chrome card  required  a  TTL 
monochrome  monitor — which  is 
fairly  inexpensive — and  the  CGA 
card  required  a  digital  RGB  color 
display — which  is  much  more  ex- 
pensive. Things  started  to  change 
when  monochrome  display  users 
realized  they  needed  graphics  capa- 
bility, too. 

Enter  Hercules,  makers  of  the 
Hercules  Graphics  Card.  The  Hercu- 
les card  has  the  same  sharp  text 
display  as  the  Monochrome  Adapt- 
er and  it  can  produce  super  high- 
resolution  monochrome  graphics. 
Because  of  its  early  support  by  im- 
portant products  like  Lotus  1-2-3, 
the  Hercules  card  has  become  a 
monochrome  standard — but  one 
that  IBM  has  never  accepted. 

Although  IBM  has  introduced 
several  other  video  standards,  most 
PC  or  compatible  buyers  are  faced 
with  a  decision  between  a  Hercules 
(or  Hercules  compatible)  card  and  a 
CGA.  Let's  look  at  both  of  these 
options  in  more  detail. 

The  Hercules  Card 

The  Hercules  card  has  just  two 
monochrome  modes — text  and 
graphics.  The  graphics  mode  has  a 
resolution  of  720  x  348.  For  applica- 
tions that  don't  demand  color,  it  is 
an  excellent,  and  inexpensive, 
choice.  Hercules-compatible  cards 
are  often  sold  for  under  $100  and 
the  monitors  that  support  this  dis- 
play can  be  found  in  the  same  price 
range. 

Perhaps  the  biggest  drawback 
to  the  Hercules  card  is  that  IBM's 
BA5ICA  doesn't  support  its  graph- 
ics, so  you  can't  use  BASICA's 
drawing  commands.  In  addition, 
many  games  use  graphics  and  ex- 
pect a  CGA  card.  One  solution  to 
these  problems  is  offered  by  Chuck 
Guzis  in  a  program  called  SIMCGA, 
which  allows  a  Hercules  card  to 
emulate  a  CGA  card.  Your  display 
is  still  monochrome,  but  you  have 
CGA  graphics  compadbility. 
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Managing  Your  Money'  is  the 
most  comprehensive,  easy 
to  use,  personal  financial 
software  tool  available  today 

It's  everything  you'll  ever 
need,  it's  all  you'll  ever  need, 
to  master  your  own  personal 
finances: 

•  PERSONAL  BUDGETING 

•  CHECK  WRITING 

•  NEW  TAX  LAWS 

•  TAX  PLANNING 

•  INSURANCE  PLANNING 

•  FINANCIAL  CALCULATOR 

•  PORTFOLIO  MANAGER 

•  NET  WORTH 

•  HOME  BANKING 

•  AND  MUCH,  MUCH  MORE. 
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NOTiuNG  am  mmsm  mm  money: 

software  that  makes  your  personal  computer  worth  having. 

meoQ 


» 

PC  Magazine,  1987 


ffi  1987  •  MECA-  355  RIVERSIDE  AVENUE,  WESTPORT,  CT 06880 
far  256K  IBM  PC,  CT,  AT,  PCjr ,  PS/2 ,  TANDY  3000, 1200HD,  1000 ,  APPLE  lie  (128K,  Two  Drives)  lie,  IICS.  Available  in  5W  and  5Va"  disl«ettes. 


CGA 

The  CGA  card  is  capable  of  display- 
ing text  and  graphics  in  seven  dif- 
ferent modes: 

40-column  monochrome  text  (320  X  200) 

40-column  16-color  text  (320  X  200) 

80-column  monochrome  text  (640  X  200) 

80-column  16-color  text  (640  X  200) 

320  X  200  4 -color  graphics 

320  X  200  monochrome  graphics 

640  X  200  2 -color  graphics 

If  you  want  to  use  color  text, 
color  graphics,  or  both  on  your  PC, 
then  a  CGA  card  along  with  a  digi- 
tal RGB  monitor  is  a  good  choice. 
The  CGA  card  and  the  monitor  it 
requires  are  more  expensive  than 
their  monochrome  counterparts, 
but  the  price  of  these  components 
seems  to  be  dropping  almost  daily, 
and  once  you've  been  seduced  by 
color,  it  can  be  hard  to  return  to 
monochrome. 

EGA 

In  an  attempt  to  combine  several 
standards  into  one  video  card,  IBM 
released  its  Enhanced  Graphics 
Adapter  (EGA)  in  1984.  The  EGA 
was  intended  to  replace  the  Mono- 


chrome Adapter,  the  CGA,  and  the 
Hercules  card,  and  to  add  new  vid- 
eo modes.  To  take  advantage  of  the 
EGA's  higher  resolution  you'll 
need  a  high-quality  RGB  monitor 
like  IBM's  Enhanced  Color  Display. 
The  EGA's  text  modes  offer  higher 
resolution  than  the  CGA's  and  the 
EGA  has  the  following  additional 
graphics  modes: 

320  X  200  16-color  graphics 
640  X  200  16-color  graphics 
640  X  350  monochrome  graphics 
640  X  350  64-color  graphics 

The  first  two  modes  offer  more 
colors  than  the  CGA,  but  at  the 
same  resolution.  The  monochrome 
graphics  mode  is  IBM's  answer  to 
the  Hercules  card  but  it  is  not  com- 
patible with  Hercules  graphics.  The 
last  mode,  640  X  350  64-color 
graphics,  requires  IBM's  Enhanced 
Color  Display,  or  its  equivalent.  It 
combines  exceptional  resolution 
with  a  large  palette  of  colors.  As 
you  might  expect,  EGA  cards  and 
EGA-compatible  monitors  are  more 
expensive  than  their  CGA  counter- 
parts, but  the  price  of  these  prod- 
ucts, too,  is  dropping. 


PS/2 

IBM's  new  PS/2  line  of  computers 
offers  a  completely  new  video 
standard  and  a  new  video  output — 
analog  RGB — which  requires  an 
analog  RGB  monitor.  The  new 
adapters  used  in  the  new  line  are 
the  Multicolor  Graphics  Array 
(MCGA)  for  the  Model  30  and  the 
Video  Graphics  Array  (VGA)  for 
Models  50,  60,  and  80.  Why  has 
IBM  introduced  another  video 
standard  that  requires  a  new  kind 
of  monitor? 

IBM  wanted  the  new  PS/2  to 
have  spectacular  graphics,  which 
means  lots  of  colors  and  very  high 
resolution.  IBM's  analog  RGB  out- 
put can  display  more  colors  than 
digital  RGB.  With  IBM's  new  ana- 
log RGB  monitors,  each  red,  green, 
or  blue  dot  can  have  any  one  of  64 
different  values.  This  means  that 
262,144  colors  are  possible — quite 
a  palette.  No  one  is  sure  what  the 
future  of  the  new  PS/2  system  will 
be,  but  it's  a  good  bet  that  the 
PS/2's  graphics  adapters  will  be- 
come a  new  standard.  © 


MICRO  WORLD  ELECTRONIX 


■^mMmA. 


NEW  500! 

512K  Computer  with  1  Disk  Drive, 
1080  Color  Monitor.  Includes 
Software 

AMIGA  500  C.\LL 

IMEG  RAM  EXP  CALL 

EXTERNAL  DRIVE      CALL 


AMIGA 


2000 


NpW  SHIPPING!! 
Peripherals  now  in  stock: 

A2088D  Bridgecard 

A2090  HD  Controller 

A2092  20MB  HD  W/Cont 

A2052  2  MB  Board 

A2010  3.5"  Disk  Drive 

A2002-23  Monitor 
A1010  External  Floppy 


LX800 

EPSON 

$175.95 

PANASONIC 

FX86E 

$CALL 

10801  MODEL  II 

$159.95 

FX286E 

SCALL 

10911  MODEL  II 

SCALL 

EX800 

$CALL 

10921 

$295.00 

EX1000 

$504.00 

1592 

$379,00 

LQ800 

$LOW 

1595 

$CALL 

LQ850 

$495.00 

3131 

$249.00 

LQ1000 

$505.00 

3151 

SCALL 

LQ1050 

$669.00 

4450  LASER 

$LOW 

LQ2500 

$SAVE 

1524  24  PIN 

SSAVES 

GQ3500  laser 

$CALL 

DECEMBER  SPECIAL!!!  BUY  ANY 
AND  RECEIVE  A  FREE 


TWO  ELECTRONIC  ARTS  TITLES 
TEE  SHIRT  OR  CAP!!! 


FREE 


Electronic  Arts 

Bard's  Tale 

$31.95 

King's    Quest  1,  II,  III 

$31.95 

Space  Quest 

$31.95 

Leisure  Suit  Larry 

$31.95 

Marble  Madness 

$31.95 

Deluxe  Paint  II 

$79.95 

Deluxe  Print 

$69.95 

Deluxe  Music 

$64.95 

Deluxe  Video 

$79.95 

Ferrari  Fornnula    1 

$31.95 

Earl  Weaver  Baseball 

$31.95 

Gridiron! 

$42.95 

Chessmaster  2000 

$29.95 

Mattttalk 

$31.95 

Empire 

$31.95 

Microillusions 

Faery  Tale  Adventure 

$31.95 

AMIGA    SOFTWARE 
Mindscape 

Dejavu  $31.95 

Brattacus  $31.95 

Defender  cf  Crown  $31 .95 

SDI  $31.95 

Sin  bad  $31.95 

King  of  Chicago  $31 .95 

Uninvited  $24.95 

SAT  Prep.  $39.95 

Microdeal 

GoldRunner  $26.95- 


Gamestar 

Baseballl 
Football 

Graphics 

Sculpt  3D 
Aegis  Animator 
Aegis  Draw  Plus 


$25.95 
$25.95 


564.95 
184.95 
5159.00 


Business  Software 

VIP  Professional  $159,95 

Superbase  $89.95 

Word  Perlecl  $199.95 

Flags  to  Fliches  Ace.  $CALL 

Phasar  $CALL 


64  &I28  Software 

Paperclip  $39-95 

Superbase  $59.95 

Bard's  Tale  126.95 

Bard's  Tale  II  $26.95 

Dan  Dare 

Delta  Patrol 

Marble  Madness 

Legacy  of  Ancients 

Pafton  VS  Rommel 

Pegasus 

Pegasus  ADV.  Battle 

Skate  or  Die 

Strike  Reet 


C64  &  128  ACCESSORIES 

MW.350  Parallel  Printer  Interface 

2K  BUFFER  $49.95 

10K  BUFFER  $59.95 

C64  Power  Supplies 

Repairable  $39.95 

Non-  Repairable      $29.95 

MW-256 

256K  Parallel  Printer  Buffer 

$129.00 

MW-232  C64/1 28  RS232  Serial  Interface  $45.00 
MW-401  40/80  Column  Cable  for  C128  $29.95 
MW-61 1  Universal  I/O  /A  to  D  converter     $225.00 


SALES:  1-800-288-8088  TECH  SUPPORT:  (303)  988-5907 

Manufacturer's  Warranty  Honored,  All  Prices  Subject  to  Change  Without  Notice. 
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WHY  WAIT 
UNTIL  NOV 
1988  TO  FIND 
OUT  WHO  WILL  WIN 
THE  ELECTION  WHEN 
YOU  CAN  FIND  OUT 
RIGHT  NOW? 


APPLE® 

C-fii/lZB" 

IBM'^  or 
CompaUlile 

ATARI  SF 


Who's  going  to  win  the  wide-open 
presidential  race  in  1988?  Bush?  Jesse 
Jackson?  Albert  Gore?  Pat  Robertson? 

Don't  wait  for  the  pundits  and  poll- 
sters to  predict  the  outcome.  You  can 
do  a  better  job  with  PRESIDENT  ELECT,- 
1988  EDITION. 

And  you  can  do  it  right  now. 

This  fun  and  fast  game  is  a  realistic 
simulation  of  the  upcoming  election. 
It's  a  perfect  holiday  gift  for  armchair 
politicians  of  all  ages,  from  the  seasoned 
campaign  follower  to  the  youngster  just 
learning  about  America's  democratic 
process. 

Most  curtent  and  potential  candi- 
dates are  included,  all  rated  for  their 
socio-economic  views,  foreign  policy 
position,  and  charisma.  You're  free  to 
change  these  ratings  or  to  create  your 
own  candidates.  By  taking  into  account 
vatious  economic  factots  and  world 
events,  you  establish  the  political  climate 
of  the  election. 

Then  you  hit  the  campaign  ttail, 
managing  and  playing  the  candidate (s) 
of  your  choice.  Your  fixed  allocation  of 
Political  Action  Points  must  be  spent 
wisely;  campaign  stops,  carefully  planned 
to  avoid  fatigue.  If  you  choose  to  debate, 
you'll  be  scored  on  your  answers  to  such 
hot  issues  as  protectionism,  Nicaragua, 
and  arms  control. 


After  nine  turns  (each  being  a  week), 
the  computer  declares  the  winner. 

The  computer  can  also  play  a  game 
over  and  over  again  —  with  major  param- 
eters changed  each  time  -  so  you  can 
quickly  see  how  a  particular  election 
might  turn  out. 

If  you  predict  the  correct  winnet 
with  this  game,  you'll  gain  more  than 
satisfaction.  You'll  have  the  chance  to 
win  up  to  $1988*  in  SSI's  President  Elect 
Contest  starting  now.  The  soonet  you 
send  in  your  prediction,  the  greater  your 
chance  to  win  the  whole  $1988. 

Look  for  this  political  crystal  ball  at 
youf  local  computer/software  or  game 
store  today.  All  SSI  games  carry  a  "H-day 
satisfaction  or  your  money  hack"  guaran- 
tee. Write  or  call  for  a  free  color  catalog  of 
OUT  full  line. 


STRATEGIC  SIMULATlOnS.  INC 

1046  N.  Rengstorff  Avenue 
Moiiiuain  View,  CA  94043 
(415)  964-1353 

©1987  Strategic  Simulations,  Inc. 


Challenging  Missions: 


From  a 

mythological 
past 


To  a 

dangerous 

future 


Available  for: 
IBM  PC  and 
compatibles, 
Tandy  1000  SX 
&EX. 


Available  far: 

IBMPC 

and  compatibles, 

Tandy  1000  SX&  EX, 

C64/128and 

Apple  n  Series. 


pyramids,  caverns  and 
swamps.  Test  your  mind 
against  complex,  multilevel 
passages,  overcome  sudden 
perils  and  surprises  from 
evil  forces,  guardian  demons 
and  villains. 


The  dangerous  DEEP 
SPACE™  assignment: 
Operation  Copernicus, 
Check  your  Top  Secret 
Flight  Dossier,  then  launch 
your  fully  armed  Starship 
on  four  thriiling  combat 


The  Seven  Spirits  of 
Ra™  challenges  you  to  an 
ad\'enture  from  3,000  yeare 
ago!  Experience  the 
authentic  drama  of  an 
ancient  Egyptian  myth. 
Fight  through  tombs. 


"•Trademarks of  Slr-tech Software.  Inc.  Apple  Isa 

registered  trademark  of  Apple  Computer.  Inc.  C64/12S  are 

registered  trademarks  of  Cominodore  Internattonal.  IBM  is 

a  registered  trademark  of  International  Business  Machines. 

Tandy  is  a  registered  uadcmark  of  Tandy  Corporation. 


missions.  Your  high-tech 
cockpit  offers  Dashboard 
and  Out-of-Cockpit  Views, 
detailed  Quadrant  Maps  and 
Damage  Control  Reports, 
But  beware!  Many  space 
enemies  await  you! 


New  from 


Sir-tech  Software.  Inc. 
P.O.  Box  245.  Ogdensburg. 

NY  13669 
(315)  393-6633 


Interactive  Text  In 
An  Animated  Age 

Infocom  Faces  The  Challenge 


A  Conversation 
With  Joel  Berez 
And  Marc  Blank 


Keith  Ferrell 
Features  Editor 


Infocom  has  ridden  through  a  de- 
cade's worth  of  changes  in  the  com- 
puter industry  by  concentrating  on 
one  type  of  product:  interactive  fic- 
tion. The  Zork  Trilogy  has  sold  more 
than  a  million  copies.  Other  best  sell- 
ers include  The  Hitchhiker's  Guide 
to  the  Galaxy,  Planetfall,  and  Leather 
Goddesses  of  Phobos. 

Now  a  wholly  owned  subsidiary 
of  Activision,  Infocom  continues  to 
focus  on  interactive  fiction.  We  were 
curious  about  how  the  market  for  text 
adventures  was  holding  up  in  a 
marketplace  that's  more  and  more 
graphics-oriented— and  where  is  in- 
teractive fiction  headed? 


COMPUTE!:  It  seems  that  increasing 
emphasis  is  being  placed  on  graphics 
and  animation  in  discussions  of  com- 
puter games  and  entertainment.  How 
does  a  text-oriented  publisher  com- 
pete with  this  trend? 

Berez:  it's  true  that  most  people 
think  of  graphics  when  they  hear 
the  phrase  computer  game.  It's  been 
true  for  years,  though. 


You're  in  a  hotel  room,  armed  with  a  tape  recorder  and  stacl< 
of  notes.  Judging  from  the  view,  that's  Cambridge,  Massa- 
chusetts, outside.  MIT  sprawls  around  your  hotel,  the  university's 
varied  architecture  centered,  it  seems,  around  a  huge  dome.  Being 
here,  you  can't  help  but  think  how  many  facets  of  computer 
technology  have  been  shaped  here.  From  mainframes  to  micros, 
this  is  the  East  Coast  center  of  the  computer  industry 

Perhaps  most  important  of  all,  at  least  for  immediate 
purposes,  this  is  where  Zor/f  was  born.  And  that's  why  you're  here. 

You're  not  alone  in  the  room.  Two  men  are  with  you,  both  ea- 
ger to  talk.  One  is  Joel  Berez,  president  and  founder  of  Infocom. 
The  other  is  Marc  Blank,  a  member  of  the  original  Infocom  team, 
co-author  of  Zork,  and  lately  a  free-lance  developer  and  consultant. 
Blank's  latest  piece  of  interactive  fiction,  Border  Zone  was  pub- 
lished by  Berez  and  Infocom  late  in  1987. 

After  a  moment's  orientation,  you  begin  the  questioning. 


Blank:  in  fact,  most  people  use  the 
terms  interchangeably,  especially 
people  who  aren't  computer  own- 
ers— they  say  video  games  when 
they  mean  computer  games. 

Berez:  in  the  early  days,  people  saw 
arcade  games  before  they  ever  saw  a 
computer.  Naturally,  when  they 
saw  a  computer  game,  they  immedi- 
ately thought  it  was  the  same  kind 
of  thing  translated  to  a  computer. 
At  Infocom,  we've  always  tried 
to  sell  the  concept  of  interactive 
text-only  products. 

COMPUTE!:  The  word  interactive  it- 
self has  lately  been  co-opted  by  manu- 
facturers of  VCR  games,  among  other 
things.  How  do  you  position  interac- 
tive fiction  in  an  entertainment  mar- 
ketplace like  this? 


Berez:  if  you  look  at  the  entire  mar- 
ketplace and  divide  it  up,  there  are 
arcade  games,  sports  games,  simu- 
lations, and  stories. 

Stories  are  actually  a  very  large 
segment  of  the  market — perhaps 
even  a  quarter  of  it  right  now.  Story 
products  in  general  do  not  have  fast- 
action  graphics  of  the  sort  that  peo- 
ple are  used  to.  Certainly  interactive 
fiction  rarely  has  graphics  at  all,  and 
even  fantasy  role-playing  games 
tend  to  have  fairly  simple  graphics. 

So  the  people  who  are  attract- 
ed to  the  story  category  tend  to 
discover  that  graphics  and  action 
aren't  everything,  and  aren't  neces- 
sary for  enjoyable  games. 

Blank:  in  fact,  there  are  very  few 
graphics  adventures  in  which  the 
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graphics  even  play  an  integral  part 
in  the  story  or  provide  any  infor- 
mation that  couldn't  be  provided 
otherwise.  Rather  than  try  to  make 
the  stories  more  complex,  the  easi- 
est thing  to  do  is  to  make  the  prod- 
uct look  nicer — to  add  bells  and 
whistles. 

This  has  been  going  on  for  a 
while.  Back  in  1981  and  1982,  we 
were  told  by  distributors  that  we 
were  crazy.  Nobody  wanted  text 
games  any  more,  we  were  told,  be- 
cause machines  were  all  becoming 
graphics  machines. 

So  this  [trend  toward  graphics] 
isn't  anything  new.  The  graphics 
keep  getting  better  on  the  ma- 
chines, so  it's  not  surprising  that 
some  people  say  text  is  dead. 

But  for  people  who  like  stories, 
text  adventures  have  just  done  a 
better  job  of  telling  stories.  That's 
the  important  point. 

COMPUTE!:  With  a  market  increasing- 
ly accustomed  to  graphics  adventures, 
however  successful  or  not,  where  does 
Infocom  find  new  customers? 

Berez:  in  some  ways,  it's  easy  to 
convert  people  from,  say,  fantasy 
role-playing  games  to  text  adven- 
tures, because  they're  already  into 
that  sort  of  thing. 

But  it's  been  a  challenge  for 
years  to  attract  people  from  other 
categories.  We  find  that  we  can  get 
a  reasonably  high  conversion  rate  if 
we  can  get  people  to  sit  down  at  a 
computer  and  try  one  of  our  games 
for  a  while. 

COMPUTE!:  Sophisticated  graphics 
capability  is  being  emphasized  by  the 
computer  manufacturers  as  well. 
What  sort  of  response  are  you  getting 
from  the  higher  end  graphics  ma- 
chines such  as  the  Amiga? 

BfirBZ:  We've  just  done  a  graph  of 
our  sales  over  the  last  year  to  see 
what  our  penetration  is.  Our  num- 
ber-one machine  is  the  Macintosh. 
Number  two  is  a  tie  between  MS- 
DOS  and  Amiga.  After  that  come 
Atari  ST,  Commodore,  and  Atari  XE. 
It  turns  out  that  there's  no  no- 
ticeable correlation  between  graph- 
ics machines  and  our  penetration. 
There  is  a  high  correlation  between 
the  price  of  the  machine  and  our 
sales.  We  do  better  on  the  expensive 
machines  than  on  the  inexpensive 
machines.  People  who  are  putting 
more  money  into  their  machines 
tend  to  buy  more  of  our  software. 
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COMPUTE!:  Is  advertising  an  effective 
means  of  gathering  new  customers? 

Befez:  we've  tried  a  number  of  ap- 
proaches with  good  results.  One  ad 
had  the  headline,  "We  stick  our 
graphics  where  the  sun  don't 
shine!" — with  an  illustration  of  a 
brain.  Another  ad  showed  a  typical 
computer  alien  from  outer  space, 
with  the  line,  "Would  you  pay  a 
thousand  dollars  to  match  wits  with 
this?" 

Blank:  The  point  was  that  you 
should  be  able  to  expect  more  from 
a  story  than  just  getting  a  little  ani- 
mated character  to  move  around  on 
your  computer.  These  are  very  pow- 
erful machines,  and  they're  not  real- 
ly being  used  to  their  potential — at 
least  in  the  storytelling  realm. 

What  Infocom  has  done  from 
the  start  is  to  simulate  a  universe 
and  then  tell  a  story  within  that 
universe. 

COMPUTE!:  It's  an  approach  that  has 
evolved  over  the  years,  while  retain- 
ing consistent  goals. 

Blanit:  Yes.  Every  game  has  had 
some  level  of  improvement.  It's 
gotten  more  sophisticated,  smooth- 
er; the  interaction  has  gotten  better. 

But  in  the  long  run,  as  things 
progress  and  more  of  a  mass  market 
grows,  you'll  be  reaching  more  peo- 
ple who  look  for  story.  People  are 
used  to  storytelling  from  other  me- 
dia, whether  it's  music,  or  movies, 
or  books.  People  look  for  stories. 
That's  what  sells  books;  it's  what 
sells  movies. 

There's  more  than  just  special 
effects.  A  lot  of  people  thought  after 
the  Star  Wars  movies  all  you  had  to 
do  was  put  in  some  fancy  special 
effects.  But  if  the  movie  was  junk, 
and  the  story  wasn't  good  and 
didn't  pull  you  in,  the  special  ef- 
fects alone  weren't  enough. 

My  sense  is  that  the  best  thing 
to  be  doing  is  honing  skills  for  tell- 
ing stories  interactively,  and  not 
wasting  time  on  graphics  technol- 
ogy that  is  going  to  be  outdated 
anyway.  In  the  long  run,  none  of 
these  technologies  are  what  con- 
sumers are  ultimately  going  to 
want.  But  they  are  going  to  be  inter- 
ested in  some  kind  of  interactive 
storytelling,  whether  through  text 
or  animation, 

COMPUTE!;  Do  you  face  any  problems 
as  a  result  of  the  decline  in  literacy? 
Are  Infocom's  sales  touched  by  the 


fact  that  people  don't  seem  to  be  read- 
ing as  much  as  they  used  to? 

Berez:  Our  audience  tends  to  be 
composed  of  heavy  readers.  We  sell 
to  the  minority  that  does  read.  And 
there's  still  a  good,  solid  core  of 
people  who  do  read. 

BlaniC   Part  of  the  trend  can  be 

traced  to  immediate  gratification — 
TV,  and  so  on.  There's  some  rela- 
tionship, but  1  think  the  people  who 
really  like  stories  will  still  be  at- 
tracted to  interactive  fiction.  One  of 
the  things  Infocom  has  been  doing 
lately  in  a  few  stories  is  trying  to 
make  it  easier  for  people,  trying  to 
provide  more  of  a  short-story  feel. 
We're  putting  together  games  now 
that  people  can  play  for  a  while  and 
then  put  down,  having  gotten  a 
good  and  complete  experience  out 
of  the  game.  Then  they  can  pick  up 


}oel  Berez 

the  game  later  and  have  another 
experience  with  it,  and  so  on. 

COMPUTE!:  So  you're  willing  to  relax 
the  format  a  bit. 

Berez:  For  a  long  time  we  were  real 
purists.  Because  everything  was  in 
the  user's  imagination,  and  the 
games  were  enjoyable  the  way  we 
were  producing  them,  we  never  felt 
any  need  to  add  a  little  sizzle,  or  to 
snazz  up  the  interface. 

Right  now,  though,  we're  ex- 
perimenting with  a  lot  of  things  to 
make  the  games  a  little  easier  to 


play.  We're  looking  at  ways  to  im- 
prove the  interface,  to  make  it  easi- 
er for  current'  users  and,  frankly,  to 
try  to  get  new  people  to  try  our 
products  and  give  them  a  chance. 
If  the  screen  is  more  visually 
interesting,  it's  more  likely  that 
somebody  who  would  not  have  at- 
tempted to  play  one  of  these  games 
will  actually  try  it. 

COMPUTE!:  What  has  been  the  re- 
sponse from  your  existing  customers? 

Blank:  it  doesn't  detract  at  all  from 
the  game.  It's  just  another  way  of 
reaching  a  group  of  people  who 
might  not  feel  that  they  were  in  the 
audience.  We've  always  found  that 
the  important  thing  is  for  the  con- 
sumer to  give  our  products  a  trial 
run.  We  know  consumers  can  get 
hooked  on  these  things,  but  you 
have  to  overcome  those  barriers: 
"It's  too  long;  it's  going  to  be  too 
hard;  it  doesn't  look  like  games  I'm 
used  to." 

We  can  address  all  of  that 
without  detracting  from  the  quality 
of  the  interactive  experience. 

Berez:  For  example,  in  Beyond  Zork, 
because  people  are  tired  of  drawing 
their  own  maps  for  our  games, 
we've  included  an  automatic  on- 
screen mapping  facility. 

COMPUTE!:  Why  now?  What  made  you 
decide  it  was  time  to  enhance  the 
interface  and  add  other  effects? 

BcrCZ:  One  reason  we're  much 
more  open  now  to  experimenting 
with  other  kinds  of  effects,  includ- 
ing sound  and  graphics,  is  that  ma- 
chines have  gotten  to  the  point 
where  they're  powerful  enough  for 
us  that  we  can  give  you  the  whole 
experience  and  add  something  to  it. 
A  few  years  back,  we  would  have 
had  to  compromise  the  interactive 
experience  to  add  anything  else. 

COMPUTE!:  So  the  charges  that  Info- 
corn  hates  graphics  aren't  accurate? 

Blank:  Not  at  all!  All  we've  ever  said 
was  that  what's  important  is  the 
story.  The  way  you  tell  the  story, 
and  the  way  that  story  interacts 
within  the  user's  imagination  is  very 
powerful.  You  don't  need  graphics. 
But  we  all  like  graphics  games, 
too.  It's  a  different  type  of  expe- 
rience. An  all-text  Pac-Man  never 
made  sense:  Eat  dot.  Wokka. 

COMPUTE!:  Is  there  a  point  in  interac- 
tive fiction,  though,  at  which  added 
effects  become  obtrusive? 


Berez:  This  is  experimentation,  and 
if  something  doesn't  work  so  well, 
it  won't  be  continued.  In  Beyond 
Zork,  you  can  turn  the  new  features 
off  if  you  don't  care  for  them. 

COMPUTE!:  Marc,  you've  said  that  all 
the  features  are  subordinated  to  story- 
telling. How  far  can  you  go  with  this? 
Are  we  moving  toward  a  new  art  form 
that  merges  the  storytelling  of  fiction 
with  the  puzzle  approach  that  has 
typified  text  adventures?  How  do  you 
approach  these  questions  when  writ- 
ing a  new  game? 

Blank:  I've  just  finished  a  new  game. 
Border  Zone,  and  my  goal  in  writing 
it  was  to  make  it  a  storytelling  expe- 
rience. The  story  is  very  important — 
there  are  puzzles,  of  course,  but 
the  puzzles  are  so  embed- 
ded in  what's  happening 
in  the  story  itself  that  you 
almost  forget  that  they're 
puzzles  you're  doing.  It's 
an  intrigue  game,  with 
three  different  scenarios, 
and  you're  a  different 
character  in  each  scenar- 
io. Also,  I've  added  real- 
time to  the  game. 

COMPUTE!:   Tell  us  about 
that. 

Blank:  in  a  game  of  in- 
trigue and  suspense, 
where  you  want  people  to 
feel  that  sense  that  things 
are  happening  all  around 
them,  that  they're  trapped 
and  they  have  to  get  out,  being  able 
to  use  realtime  is  very  effective. 
There's  one  point  where  you  have 
to  set  a  fuse  on  a  bomb  to  go  off  in 
a  certain  number  of  minutes.  Once 
you  do  that,  it  starts  ticking.  No 
matter  what  else  you're  doing  in 
the  game,  you're  aware  that  bomb 
is  getting  closer  and  closer  to 
detonating. 

What's  important  about  these 
extra  elements  is  using  ones  that  are 
appropriate.  It's  not  something  just 
tacked  on  as  a  bell  and  whistle — it's 
an  integral  part  of  the  story. 

COMPUTE!:  You're  seeking  ways  to 
make  the  problem-solving  and  puzzle 
elements  serve  the  cause  of  narrative. 

Blank:  Yes.  stories  have  a  sense  of 
time  and  progression  and  dramatic 
thrust  that's  hard  to  achieve  in  this 
medium.  But  we  are  constantly  ex- 
perimenting, and  getting  closer  to 
real  fictional  experiences. 


BerBZ:  These  are  a  form  of  litera- 
ture, but  you  can't  just  translate  a 
book  into  a  computer  game.  There 
has  to  be  some  advantage  to  using 
the  computer,  or  the  user  would  be 
better  off  reading  a  book. 

In  the  early  days,  the  advan- 
tage was  the  feeling  that  you  are 
there.  The  puzzles  added  to  that — 
they  gave  you  reasons  for  interact- 
ing vAth  the  environment  we  put 
you  in. 

Now  we're  experimenting  with 
other  approaches  that  may  in  fact 
feel  much  less  puzzle-oriented. 
They  may  actually  be  much  less 
puzzle-oriented.  But  you'll  still  be 
drawn  through  the  story.  You'll  get 
a  certain  feeling  that  you  wouldn't 
get  just  reading  a  book. 


Marc  Blank 

COMPUTE!:  Zork  came  out  of  main- 
frames.  You've  found  great  success  in 
the  micro  market.  What  about  the 
next  generation  of  computer  technol- 
ogy? Can  we  look  for  Compact  Disc- 
Interactive  (CD-I)  games  from  Infocom? 

Berez:  what  we  do  is  interactive 
storytelling,  and  that  implies  that 
we'll  do  things  for  any  medium  that 
can  be  interactive.  We've  produced 
books.  CD-I  is  definitely  something 
we  want  to  work  on. 

COMPUTE!:  What  form  might  an  in- 
teractive CD-I  take? 

Berez:  Audio  is  a  particularly  good 
medium  for  translating  Infocom 
games.  Listening  uses  your  imagi- 
nation. The  key,  though,  is  to  use 
sound,  or  any  enhancements,  the 
same  way  we  use  text — as  some- 
thing that  adds  to  the  imaginative 
experience.  © 
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Readers  Feedback 


The  Editors  and  Reoders  of  COMPUTE! 


If  you  have  any  questions,  comments,  or 
suggestions  you  imuid  tike  to  see  ad- 
dressed ill  this  column,  write  to  "Readers' 
Feedback,"  COMPUTE!.  P.O.  Box  5406. 
Greensboro,  NC  27403.  Due  to  the  volume 
of  mail  lue  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


Telecomputing  For 
Beginners 

1  have  three  questions  about  modems. 
Can  you  use  a  modem  if  you  have  a 
two-party  phone  line?  Is  it  cheaper  in 
the  long  run  to  buy  a  1200-baud  mo- 
dem for  $100,  or  a  300-baud  modem  for 
$40?  When  you  use  services  like 
CompuServe,  that  charge  by  the  min- 
ute, do  you  have  to  pay  long-distance 
bills  for  calling  them? 

Kevin  Smith 

A  modem  can  be  used  on  a  two-parly  line, 
but  if  the  other  party  picks  up  the  phone 
while  you're  telecommunicating,  you'll 
probably  lose  some  data;  you  might  even 
be  disconnected.  If  you  plan  on  doivnload- 
ing  long  programs  from  the  service,  you'll 
probably  want  to  switch  to  a  single-party 
line. 

The  key  phrase  in  your  second  ques- 
tion is  "in  the  long  run."  Although  you'll 
save  a  few  dollars  in  the  short  run  if  you 
buy  the  300-baud  modem,  you'll  save 
more  in  tJ\e  long  run  by  choosing  the 
1200-baud  modem.  If  you  use  your  nezo 
modem  often,  you'll  make  up  the  S60  dif- 
ference in  the  prices  quickly. 

As  to  your  third  question,  it  depends. 
Many  cities  have  a  local  access  number — 
you  can  reach  the  service  with  a  local  call. 
If  you  don't  have  a  local  access  number, 
you'll  have  to  pay  for  a  long  distance  call. 
For  details,  check  with  the  service  you're 
interested  in.  An  alternative  to  hug  dis- 
tance calls,  known  as  the  PC  Pursuit  Ser- 
vice, is  available  from  GTE  Telenet.  This 
service  is  designed  for  data  only  (no 
voices)  and  is  available  in  only  certain 
area  codes.  For  a  S25  sign-up  fee  and  $25  a 
month,  you  can  make  an  unlimited  number 
of  calls  from  6  p.m.  to  7  a.m.  weekdays,  and 
at  any  time  during  the  iveekend.  For  more 
information,  call  the  PC  Pursuit  Bulletin 
board  at  1-800-835-3001  (data  only). 


Amiga  2000  Confusion 

I  enjoyed  Sheldon  Leemon's  April  1987 
AmigaView  column  about  the  new 
Amiga  2000.  in  it,  1  read  that  the  Amiga 
2000  has  slots  for  two-  or  eight-mega- 
byte RAM  cards  and  a  special  slot  for  a 
coprocessor  card,  but  does  not  support 
more  than  512K  of  chip  memory  or  a 
math  coprocessor.  What  distinction  is  he 
drawing? 

Bob  Trent 

As  to  the  memory  question,  all  Amiga 
computers  have  a  reserved  area  of  512K 
bytes  of  metnory  knozcn  as  chip  memory. 
This  is  the  only  memory  that's  accessible  to 
the  special  hardware  chips  that  control 
sound  and  graphics.  The  microprocessor  in 
the  Amiga,  on  the  other  hand,  can  access 
all  the  RAM  that  you  can  put  into  the 
Amiga.  Having  more  chip  memory  would 
allow  for  improved  animation  and  sound. 
Contrary  to  some  rumors  that  circulated 
before  the  introduction  of  the  2000,  that 
machine  has  the  same  amount  of  chip 
memory  as  the  WOO. 

The  Amiga  2000  does  not  use  a  math 
coprocessor,  which  would  speed  up  nu- 
merical apiplications  like  spreadsheets  and 
three-dimensional  graphics.  However,  it 
does  have  a  special  slot  that  can  hold  a 
coprocessor  like  the  68020,  which  is  an 
improved  version  of  the  68000  processor 
that  all  Aniigas  use. 

Programming  The  Atari 

I  own  an  Atari  800XL  and  a  1050  disk 
drive.  I  know  BASIC  and  some  machine 
language.  1  like  to  program,  especially 
with  player/missile  graphics.  What  I 
would  like  to  know  is  how  to  detect 
collisions  between  players  and  missiles. 
Also,  is  there  a  way  to  move  players 
vertically  other  than  shifting  all  the 
player  data  in  memory? 

I  have  read  that  POKE  1913,80 
speeds  up  the  disk  drive  when  saving 
programs.  Is  there  a  POKE  1  can  do  to 
speed  up  loading? 

Thane  Maxwell 

Player/missiles  are  similar  to  the  sprites 

on  other  computers — they  are  movable 
objects  that  are  independent  of  the  hack- 
ground  screen.  However,  player/missiles 
do  not  have  vertical  position  registers,  so 
you  cannot  move  them  up  and  down  loith- 


out  physically  moving  the  image  data. 
Fortunately,  player/missiles  stretch  the 
entire  height  of  the  screen  (and  even  be- 
yond the  top  and  bottom  of  the  screen),  so 
player/tnissiles  can  be  on  any  portion  of 
the  screen. 

The  player/missile  graphics  system 
has  collision  registers  that  can  tell  you 
when  any  given  player  or  missile  has 
overlapped  any  given  color  on  the  screen, 
when  any  player  has  overlapped  any  other 
player,  and  when  any  player  has  over- 
lapped any  missile.  There  is  no  provision, 
however,  for  detecting  collisions  between 
two  missiles.  Many  books  cover  player/ 
missile  programming.  Mapping  The 
Atari  from  COMPUTE!  Books  and  De  Re 
Atari  from  Atari  are  among  them. 

The  POKE  you  mentioned  for  speed- 
ing up  disk  saves  works  by  turning  off  the 
verify  mode.  Normally,  each  save  is  fol- 
lowed by  a  simulated  load  which  compares 
each  saved  byte  to  the  corresponding  byte 
of  memory.  If  any  of  the  bytes  don't  match, 
the  save  is  automatically  retried.  POKEing 
80  into  1913  turns  off  this  verify  mode. 
There  is  no  simple  POKE  that  can  speed  up 
disk  reads. 


The  Amiga  Famiiy 

I'd  like  to  buy  an  Amiga  500,  but  I  don't 
know  how  compatible  it  is  with  the 
Amiga  1000.  How  compatible  is  it?  Can 
it  run  IBM  software  like  the  1000? 

Yip  Man  Tsang 

The  Amiga  500  is  basically  a  repackaged 
Amiga  1000.  It  has  all  the  powerful  fea- 
tures of  an  Amiga  1000 — multitasking 
(the  ability  to  run  several  programs  at  the 
same  iime),  excellent  sound,  and  the  most 
impressive  graphics  system  of  any  home 
computer.  The  keyboard,  while  not  de- 
tachable, has  been  expanded  and  en- 
hanced. Most  people  agree  that  the  500's 
keyboard  has  a  better  feel  than  the  lOOO's. 
The  Amiga  500  comes  with  more  standard 
RAM  than  the  1000(512K  vs.  256Kforthe 
1000),  and  is  easily  upgradable  to  one 
megabyte  (1024K).  Best  of  all,  the  500  has 
a  much  lower  price. 

The  Amiga  500  is  compatible  with  all 
software  written  for  an  Amiga  1000  run- 
ning version  1.2  of  Kickstart  and  Work- 
bench. It  will  not  run  some  software 
written  for  version  3.1  (remember.  Kick- 
start  1.2  has  been  placed  in  ROM  on  the 
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Amiga  500).  This  should)i't  be  a  problem 
since  nearly  all  commercial  software  is 
now  lorilten  for  version  1.2. 

Some  hardware  designed  for  the  1000 
does  not  zoork  on  the  500.  Before  you  plug 
anything  into  your  500's  expansion  con- 
nector, make  sure  to  ask  whether  it  is 
compatible  with  your  computer.  Now  that 
there  are  three  Amiga  models,  most  man- 
ufacturers clearly  state  which  model  or 
models  their  products  work  with. 

Currently,  only  the  Amiga  1000  and 
2000  have  the  ability  to  run  IBM  PC  soft- 
ware. The  Amiga  2000  offers  an  optional 
bridge  card  (an  S088  microprocessor  on  a 
board),  and  the  1000  has  a  hardware  add- 
on (called  the  Sidecar)  for  IBM  compatibil- 
ity. Commodore  has  not  mentioned  any 
details  for  running  PC  software  on  the  500, 
but  there's  always  hope — the  numeric  key- 
pad includes  IBM  cursor-control  keys. 

128  To  CP/M  File  Transfer 

I  use  Word  Writer  128  for  word  process- 
ing. As  you  may  know,  it  stores  files  in 
sequential  format. 

My  question  is  this:  Is  there  a  way 
to  transfer  these  files  to  a  Commodore 
CP/M  disk  so  they  can  be  read  in 
CP/M  mode?  I  would  tike  to  be  able  to 
do  this  to  keep  from  having  to  purchase 
a  CP/M  word  processor  or  text  editor. 

I  would  appreciate  any  help  you 
could  give  me. 

Robert  Kupfer 

In  the  July  1986  issue  of  your  sister 
publication,  COMPUTEI's  Gazette,  the  ar- 
ticle "A  Hands-On  Introduction  to  128 
CP/M"  makes  reference  to  download- 
ing a  program  from  a  BBS  in  64  or  128 
mode,  and  then  transferring  it  from  a 
Commodore  disk  to  a  CP/M  disk.  Since 
the  two  disk  formats  are  not  compati- 
ble, can  this  transfer  be  accomplished 
using  a  single  128  computer  and  1571 
disk  drive? 

Paul  Lynas 

There  are  several  ways  to  transfer  files 
from  a  128  disk  to  a  128  CP/M  disk.  First, 
there  are  programs  available  in  the  public 
domain  that  will  do  this  for  you.  Programs 
for  one-  and  two-drive  systems  are  avail- 
able on  CompuServe,  QuantumLink,  and 
on  most  bulletin  board  systems  (BBSs)  that 
support  Commodore  computers.  If  you 
don't  have  a  modem,  your  best  bet  is  to 
contact  a  local  user's  group  for  one  of 
these  programs. 

If  you  are  unable  to  locate  one  of 
these  programs,  there  is  a  simple  way  to 
accomplish  the  transfer  (assuming  your 
files  are  less  than  50K  in  length.)  This 
method  requires  only  a  128,  1571,  the 
DOS  Shell  program  that  comes  with  the 
1571,  the  CP/M  system  disk  that  comes 
with  the  128,  and  one  short  BASIC 
program. 

In  a  nutshell,  this  technique  involves 


loading  a  file — originally  either  sequen- 
tial or  program — into  the  128  in  128 
mode,  booting  CP/M  and  saving  the 
information  to  a  CP/M-formatted  disk. 
It's  not  an  especially  complicated  proce- 
dure, but  it  does  involve  several  steps. 

First,  in  order  to  be  BLDADed  into 
the  128's  memory,  the  file  you  want  to 
transfer  must  be  a  PRGfile.  If  the  file  is  in 
sequential  format,  there's  a  simple  way  to 
convert  it. 

Boot  the  DOS  Shell  program  that 
came  with  your  1571.  When  the  shell  is  in 
memory,  press  /I  to  activate  it.  Choose  the 
DELETE  FILES  option  from  the  menu. 
Delete  the  file  you  want  to  change  from 
SEQ  format  to  PRG  (make  sure  you  have  a 
backup  copy  of  this  file  on  another  disk). 
Now,  choose  the  option  to  RESTORE 
FILES.  Specify  the  filename  of  the  file  you 
just  deleted.  When  the  shell  asks  what 
type  of  file  the  restored  file  is,  simply 
select  the  PRG  option. 

Noiv  that  your  sequential  file  is  a 
PRG  file,  you  can  load  the  file  into  the 
128's  memory  at  a  place  zohere  CP/M  will 
be  able  to  find  it.  Use  the  following 
command: 

BWAD"filename",Bl,P717a 

tvhere  filename  is  the  name  of  the  file  you 
want  to  transfer.  This  will  place  the  file  in 
bank  1,  at  address  7170  ($1C02).  Next, 
there  are  two  details  to  which  we  must 
attend.  The  BIOAD  command  assumes 
the  first  two  bytes  of  your  file  are  its  load 
address — they  aren't,  they're  part  of  the 
file  you  want  to  transfer — so  we  need  to 
read  these  two  bytes  and  put  them  where 
they  belong.  Second,  we  need  to  determine 
the  file's  ending  address.  To  accomplish 
these  two  tasks,  type  in  and  run  the  fol- 
lowing short  program,  again  replacing 
FILENAME  with  the  name  of  the  file  you 
wish  to  transfer: 

10  DOPEN#2,  "FILENAME,?,  R" 

23  GET*2,A5!lFA?=""THENA5=CHRS 

(0) 
30  BANKJ:POKE7168,ASC(AS) 

49  GET#2,A5sIFA5=""THENAS=CHR5 
(0) 

50  BAlfKl:POKE7169,ASC(A$) 
60    GET*  2,  A? 

70    BYTE=BVTE-H 
80    IFST=0THEN60 
90    DCL0SE#2 

J.00    PRINT"ENDING   ADDRESS    =    "HE 
>CS(7169+BYrE) 

Write  down  the  ending  address — you'll 
need  it  in  just  a  moment. 

Now,  place  your  CP/M  system  disk 
in  the  drive  and  type  BOOT.  (Be  sure  not 
to  reset  your  128  or  turn  it  off  just  type 
BOOT.) ' 

When  the  128's  CP/M  is  loaded,  take 
the  disk  that  has  the  CP/M  command 
SAVE  on  it  and  put  it  in  the  drive.  (SAVE 
is  on  the  flip  side  of  the  CP/M  system  disk 
that  came  with  your  128.)  Now  type  SAVE 
at  the  A>  prompt.  When  the  prompt  re- 
turns, type  SAVE  again.  Now  place  the 


CP/M  disk  you  want  to  save  the  file  to  in 
drive  A.  CP/M  first  asks  you  the  filename 
you  ivont  to  use.  Supply  any  legal  name 
you  like.  If  the  file  is  a  binary  or  execut- 
able file,  be  sure  to  use  the  extension 
.COM.  Next  you're  asked  for  the  starting 
address.  Type  ICOO  and  press  RETURN. 
Finally,  CP/M  asks  for  the  ending  ad- 
dress. Type  in  the  ending  address  you 
wrote  down  earlier. 

If  you've  done  everything  correctly, 
your  128  file  is  now  on  your  CP/M  disk. 

The  Atari  65XE 

I  have  a  65XE  and  I  am  told  that  it 
cannot  be  expanded  like  the  other  com- 
puters in  the  XL  and  XE  series.  If  it  can 
be  expanded,  please  tell  me  how. 

Joe  Stinsky 

The  first  generation  of  Atari  computers,  the 
400  and  800,  did  not  have  an  expansion 
bus  cofinector  on  the  machines.  This  made 
it  difficult  to  connect  accessories  and  exotic 
peripherals  to  the  computers. 

When  the  XLs  first  appeared,  one  of 
the  big  selling  points  was  the  addition  of  an 
expansion  port.  Unfortunately,  feio  manu- 
facturers took  advantage  of  this  port  until 
recently.  Atari  decided  to  make  the  65XE 
their  entry-level  computer,  so  they  did 
away  with  the  expansion  port  to  reduce  the 
cost  of  the  computer.  The  65XE's  big  broth- 
er, the  130XE,  does  have  an  expansion 
port. 


Date  Stamping  ProDOS  Files 

I  do  not  have  a  clock  on  my  Apple  He,  so 
my  files  are  never  dated  properly  when 
saved  to  disk,  I  often  have  two  different 
versions  of  the  same  file  with  the  same 
date  on  separate  disks.  It  would  be 
handy  if  I  could  tel!  which  file  was  the 
most  up  to  date.  Could  you  develop  a 
program  which  allows  me  to  manually 
set  the  date  of  ProDOS  files? 

Leslie  Gene  Hunter 

The  program  below  allows  you  to  set  the 
system  date  on  the  Apple  He  or  Apple  He 
without  the  use  of  a  hardware  clock.  (The 
Apple  IlGS  does  not  need  such  a  program 
because  it  comes  with  a  built-in  clock.) 

10  HOME  !  PRINT  "SET  DATE  (ENTE 

R  TWO-DIBIT  NUMBERS  ONLY)"! 

PRINT 
Z0  INPUT  "MONTH:  "jMXi  IF  MX  < 

1  OR  MX  >  12  THEN  PRINT  "ILL 

ESAL  MONTH"  CHR»  (7) i  SOTO  2 

0 
30  FOR  I  ■■  3  TO  0  STEP  -  1 !  MX  (I 

)  »MX/2'>I:MX-MX-2'' 
I  »  (MX  >  -  2  "  I):  NEXT 
40  INPUT  "DAYt  "iDXs  IF  DX  <  1 

OR  DX  >  31  THEN  PRINT  "ILLEG 

AL  DAY"  CHR»  (7>5  GOTO  40 
50  FOR  1  ■=  0  TO  2iDX  =  DX  +  2  " 

(I  +  5>  «  MX<I)i  NEXT 
60  INPUT  "YEAR:  '■;YXi  IF  YX  >  9 

■?  THEN  PRINT  "ILLEBAL  YEAR" 

CHR«  <7) !  BDTQ  60 
70  FOR  I  =  6  TO  0  STEP  -  l:YXtI 
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)  =  YX  /  2  -^  IiYX  =  VX  -  2  -^ 
I  «  <YX  >  =  2  ^  1)1  NEXT 
B0    FOR  I  =  0  TD  6iYX  =  YX  +  2  " 
(I  +  1!  t  YX(I)t  NEXT  (YX  - 
YX  +  MX (3) 
90  PDKE  49040, DXi  POKE  49041, YX 
:  PRINT  J  PRINT  "DATE  SET" 

You  must  nin  this  program  every  time 
you  boot  your  computer.  If  you  wish,  you 
may  include  this  code  as  part  of  your 
startup  program. 

When  run,  you  are  asked  to  enter  the 
month,  day,  and  year  using  two-digit  num- 
bers. To  set  the  date  to  November  20, 1988, 
for  example,  enter  to  numbers  11,  20,  and 
88.  If  you  make  a  mistake,  simply  rerun  the 
program.  After  the  program  has  been  run, 
ProDOS  automatically  stamps  all  newly 
created  or  updated  files  with  the  appropri- 
ate date. 


64/126  Assembler  Update 

PAL  64,  Buddy  64,  and  Buddy  128,  pre- 
viously available  from  Pro-Line  Software 
in  Canada,  are  now  distributed  in  the 
United  States  by  Spinnaker  as  part  of  its 
Better  Working  series.  PAL  (for  Personal 
Assembly  LanguageJ  is  available  in  The 
Programmer's  Tool  Box  along  with  Pow- 
er 64  and  More  Power  (both  program- 
mer's aids).  Buddy  64  and  Buddy  128, 
together  with  a  host  of  programmer's  utili- 
ties, are  found  in  Spinnaker's  Power  As- 
sembler package.  The  Programmer's 
Tool  Box  retails  for  $19.95  and  Power 
Assembler  for  $39.95.  They  are  widely 
available  in  department  stores  and  from 
Spinnaker  Software,  One  Kendall  Square, 
Cambridge,  MA  02139. 

128  Video  Displays 

I  currently  own  a  Commodore  64  com- 
puter and  am  thinking  of  upgrading  to  a 
128.  My  only  problem  is  that  I  have 
heard  that  the  128  can  be  used  only  as  a 
64  without  the  1902  monitor.  I  don't  see 
how  this  can  be  true.  I  know  that  with- 
out the  1902,  the  128  can  only  display 
40  columns  and  not  80,  but  is  there  any 
truth  to  not  being  able  to  use  the  128  in 
different  modes  without  the  1902 
monitor? 

Eric  Mohn 

The  128  has  two  video  chips  that  produce 
two  different  video  signals.  The  VIC  U 
(8564)  chip  produces  a  composite  signal, 
which  is  used  in  64  mode  and  in  the  128's 
40-column  mode.  The  other  signal — 
RGB/— is  generated  by  the  VDC  (8563) 
chip,  which  is  responsible  for  the  128's  80- 
colunm  display.  Either  display  mode  can 
be  used  in  128  or  CP/hA  mode. 

You  can  display  the  128's  40-column 
output  on  any  composite  monitor — color  or 
monochrome.  The  80-column  output  must 
have  an  RGB!  display  for  80-column  color, 
but  you  don't  necessarily  have  to  have  a 
Commodore  1902.  The  128's  RGB  connec- 


tor is  the  same  as  that  on  the  IBM  PC,  so 
any  RGBI  color  monitor  that  works  with  a 
PC  will  also  work  with  a  128.  The  advan- 
tage of  the  1902  is  that  it  can  display  both 
composite  and  RGB  video— a  feature  not 
found  on  many  monitors.  There's  also  an- 
other alternative.  The  128  does  provide  a 
composite  version  of  the  80-column  video 
signal,  but  only  in  monochrome.  You  can 
get  a  good  monochrome  80-column  display 
using  a  composite  monitor  and  a  special 
cable  available  at  most  computer  stores  for 
this  very  purpose. 

ML  Load  Addresses 

I  would  like  to  know  something  about 
machine  language  programs.  If  I  type  in 
a  program  with  the  starting  address  of 
$C000  and  save  it  to  disk,  and  then  1 
later  type  in  another  program  with  the 
same  starting  address,  can  I  save  the 
latter  program  to  the  same  disk  without 
erasing  the  first  one? 

John  Potter 

The  starting  and  ending  addresses  given 
for  machine  language  programs  refer  only 
to  the  addresses  of  these  programs  while  in 
the  computer's  memory.  When  you  store 
these,  or  any  other  programs,  on  a  disk,  the 
disk  operating  system  (DOS)  determines 
the  disk  location  for  the  programs  irrespec- 
tive of  their  starting  and  ending  address  in 
memory. 

So,  you  can  safely  have  any  number  of 
programs  with  the  same  starting  address 
stored  on  the  same  disk. 

Amiga  500  Pricing  Update 

In  "Close  Up:  The  Amiga  500"  (October 
COMPUTE!),  we  stated  that  the  list  price  of 
the  500  was  $595.  This  statement  was 
based  on  information  received  before  the 
ship  date  of  the  machine.  At  delivery, 
Commodore  announced  that  the  Amiga 
500  would  carry  a  $699  list  price  with  a 
$599  suggested  retail  price. 

Saving  Doubie-Hi-Res 

1  really  enjoy  using  DOS  3.3  and  dou- 
ble-hi-res  graphics  on  my  Apple  Ik,  and 
1  recently  started  using  your  Chrome 
program.  But  when  I  BSAVE  a  double- 
hi-res  picture  and  BLOAD  it  later,  only 
half  the  picture  is  displayed.  Could  you 
please  show  me  an  easy  way  to  save  and 
load  double-hi-res  pictures? 

Kobie  Gantt 

When  an  Apple  is  in  double-hi-res  mode,  it 
stores  the  picture  in  an  unusual  way.  Half 
of  the  picture  goes  in  the  hi-res  page  1 
memory  area,  addresses  $2000-$3FFF,  and 
the  other  half  goes  in  the  alternate  memory 
bank  in  the  same  $2000-$3FFF  range. 
Only  Apples  with  more  than  64K  of  memo- 
ry have  this  alternate  memory  bank.  Ma- 
chine language  programs  can  access  this 


area  by  telling  the  Apple's  hardware  to 
read  or  write  to  the  alternate  bank.  Unfor- 
tunately, DOS  3.3,  ProDOS,  and  the  Ap- 
plesoft BASIC  interpreter  all  lack  a  direct 
way  to  access  this  bank. 

The  solution  is  a  simple  ML  (machine 
language)  program  that  copies  the  contents 
of  the  alternate  bank  over  into  main  memo- 
ry. Then,  you  can  BSs^E  a  big  block  of 
main  RAM  that  contains  both  halves  of  the 
picture.  Later  on,  when  you  BIDAD  the 
file  back  in,  you  can  use  another  ML  pro- 
gram to  put  half  of  the  picture  back  into 
alternate  RAM  where  it  belongs.  Listed 
below  are  two  BASIC  file-creator  pro- 
grams. When  you  type  in  and  RUN  the  first 
one,  it  creates  a  binary  file  called 
DHGRS/^E.  This  ML  program  puts  a 
double-hi-res  picture  entirely  into  main 
RAM.  After  typing  BRUN  DHGRSAVE, 
you  can  save  the  picture  with  this 
command: 

BSAVE  pief«re,A$20O0,L$40O0 

where  picture  is  the  name  you  wish  to  use 
for  the  picture  file. 

Type  in  and  RUN  the  second  program 
to  make  a  binary  file  called  DHGRLOAD. 
It  prepares  a  file  for  display  as  a  double-hi- 
res picture.  If  your  Apple  II  is  in  text  mode 
when  you  BIDAD  a  picture,  you'll  need  to 
enable  double-hi-res  to  see  what  you've 
loaded.  To  do  this,  first  type  PR#3  to 
enable  the  80-column  text  display.  Then 
type  these  three  POKEs: 

POKE  49246,0 
POKE  49239,0 
POKE  49232,0 

Although  Chrome  and  Chrome  II 
work  with  DOS  3.3  only,  the  ML  programs 
below  work  in  ProDOS  as  well  If  you 
create  a  picture  with  Chrome  and  BSjWE 
it,  you  can  transfer  it  to  ProDOS  if  you  like. 

70  FOR  I  -  6144  TO  1  +  47i  READ 

Ai  POKE  I,A:C  -  C  -f  Al  NEXT 

B0  IF  C  <  >  8244  THEN  PRINT  "DA 

TA  ERROR"}  STOP 
90  PRINT  CHR»  (4) I "BSAVE  DHBRLO 

AD,A«1500,L«30" 
100  DATA  160,0, 132, 2S2, 132,254 
110  DATA  169,32,133,233,169,64 
120  DATA  133,233,141,1,192,173 
130  DATA  87,192,177,252,141,83 
140  DATA  192,143,232,141,84,192 
130  DAfA  177,254,143,232,200,20 

8 
160  DATA  239,230,233,230,253,16 

3 
170  DATA  253.201,64,208,229,96 

10  FOR  I  -  4096  TQ  I  +  47l  READ 

A:  POKE  I,AjC  -  C  +  Ai  NEXT 

20  IF  C  <  >  B244  THEN  PRINT  "DA 

TA  ERROR":  3TQP 
30  PRINT  CHR»  (4) ; "BSAVE  DHBR3A 

VE,A»1000,L*30" 
40  DATA  160,0,132,232,132,254 
30  DATA  169,32,133,253,169,64 
60  DATA  133,255,141,1,192,173 
70  DATA  87,192,177,252,143,234 
80  DATA  141,85,192,177,252,141 
90  DATA  84,192,143,252,200,208 
100  DATA  239,230,253,230,255,16 

5 
110  DATA  233,201,64,208,229,96  ^ 
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Computers  and  Society 

David  D.  Thornburg,  Associate  Editor 


The  Power  Of  HyperCard,  Part  1 


Last  month  I  started  talking  about 

HyperCard,  Apple's  new  program- 
ming language  being  shipped  with 
all  new  Macintosh  computers.  This 
product  is  also  being  made  avail- 
able to  existing  Mac  owners  for  a 
very  low  price  in  the  hope  that 
everyone  will  soon  have  their  own 
copy.  Unlike  traditional  program- 
ming languages  such  as  C  or  Forth, 
HyperCard  can  be  used  by  neophyte 
programmers  who,  within  a  week 
of  starting,  can  build  sophisticated 
applications  that  would  require  a 
lot  of  effort  in  any  other  language. 
I'm  going  to  explore  HyperCard 
for  the  next  two  months  for  several 
reasons.  First,  it  proves  that  the 
proper  design  of  a  language  can 
open  up  programming  to  people 
who  would  never  think  of  them- 
selves as  programmers.  Second,  the 
underlying  metaphors  of  Hyper- 
Card are  interesting  to  look  at  in 
their  own  right. 

The  Problem  With  Macs 

Just  as  the  Macintosh  is  tremen- 
dously easy  to  use,  it  is  also  (until 
now)  extremely  hard  to  write  pro- 
grams for.  HyperCard  applications 
are  both  easy  to  use  and  easy  to 
create.  This  combination  of  ease  in 
both  domains  opens  the  world  of 
Mac  programming  to  hundreds  of 
thousands  of  people  who  would 
not  otherwise  enjoy  the  experience 
of  creating  their  own  applications. 

This  does  not  mean,  however, 
that  all  of  HyperCard's  program- 
ming environment  is  easy  to  mas- 
ter. It  isn't.  But,  unlike  some  other 
"easy  to  master"  products,  Hyper- 
Card provides  a  seamless  transition 
between  those  tasks  that  are  easy 
and  those  that  are  not.  This  keeps 
the  new  programmer  from  running 
against  a  brick  wall  after  reaching  a 
certain  proficiency  level. 

In  some  ways  HyperCard  is  like 
a  fourth-generation  database  lan- 
guage in  that  it  allows  the  user  to 


create  custom  applications  as  tem- 
plates. Other  programs  of  this  sort 
that  come  to  mind  are  Filevision  (for 
the  Mac)  and  Quickview  System's 
excellent  product,  Zoomracks  (for 
the  Atari  ST  and  MS-DOS  ma- 
chines).   However,    one    must    be 

Figure  1 
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careful  when  comparing  HyperCard 
against  other  tools  of  the  type  men- 
tioned. While  HyperCard  can  be 
used  in  a  template-construction 
mode,  it  is  far  more  powerful  than 
the  other  products  in  that  it  pro- 
vides the  user  with  a  full- function 
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Figure  2 
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extensible  programming  language 
from  which  completely  new  appli- 
cations can  be  created. 

More  Than  Macs 

If  HyperCard-like  languages  were  to 
appear  only  on  the  Mac,  they 
wouldn't  be  as  interesting  to  ex- 
plore. According  to  an  interview 
with  Bill  Atkinson,  Apple  Fellow, 
who  was  the  principal  designer  of 
HyperCard,  the  file  formats  will  be 
made  public  so  that  MS-DOS  ver- 
sions of  the  product  can  exchange 
data  with  the  Mac  version.  He  is 
also  working  on  a  version  for  the 
Apple  II.  (His  interview  appears  in 
Danny  Goodman's  excellent  book. 
The  Complete  HyperCard  Handbook, 
Bantam  Books,  $29.95.) 

A  Quick  Look  At 
An  Application 

HyperCard  applications  are  called 
stacks,  since  the  underlying  meta- 
phor is  one  in  which  the  user  is 
presented  with  a  stack  of  cards  that 
contain  information:  buttons  that 
perform  certain  actions  and  fields  in 
which  data  can  be  entered  and  re- 
sults of  calculations  can  be  dis- 
played. (This  stack  concept  is  similar 
in  many  ways  to  Paul  Heckel's  ear- 
lier "zoomrack"  metaphor  of  a  rack 
of  cards.)  Figure  1  shows  a  sample 
card  from  the  "address  stack." 

The  central  figure  in  this  image 
looks  like  a  Rolodex™  card  contain- 
ing a  name-and-address  field  and  a 
phone-number  field.  This  particu- 
lar card  was  picked  from  the  stack 
by  using  a  "find"  command  issued 
in  the  message  box  at  the  bottom  of 
the  screen.  By  clicking  the  mouse 
on  the  telephone-shaped  button, 
the  phone  number  is  dialed  auto- 
matically. The  buttons  to  the  left  of 
the  card  image  launch  other  appli- 
cations and  provide  other  capabili- 
ties such  as  sorting  the  stack 
alphabetically.  The  entire  operation 
of  this  stack,  including  the  creation 
of  new  entries,  is  based  on  the  fun- 
damental Macintosh  model  of 
"type  and  click." 

At  any  time  the  user  is  free  to 
build  a  fresh  address  stack  using 
this  one  as  a  template.  This  new 
stack  can  have  the  buttons  and  text 
fields  in  different  places,  and  un- 
wanted features  can  be  discarded 
and  new  ones  added. 

HyperCard  is  shipped  with  a 


collection  of  sample  stacks  that  cov- 
er a  wide  range  of  common  data- 
base activities  such  as  maintaining 
calendars,  phone  lists,  and  so  on. 
Each  of  these  applications  can  be 
launched  from  a  special  stack  called 
the  home  stack.  Many  HyperCard 
applications  have  a  home  button 
that,  when  pressed,  takes  you  back 
to  this  stack. 

Buttons  can  be  used  to  perform 
myriad  operations.  Their  most  com- 
mon use  is  to  branch  to  another  card 
or  to  another  stack.  They  can  even 
be  used  to  launch  other  applications 
that  have  nothing  to  do  with  Hyper- 
Card, such  as  starting  a  word  pro- 
cessing program.  To  get  a  feel  for 

Figure  3 
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how  easy  it  is  to  become  a  Hyper- 
Card author,  I've  created  a  small 
stack  designed  to  let  people  explore 
the  different  parts  of  a  fish.  As  the 
user  clicks  on  different  areas  of  a 
fish,  the  program  displays  the  name 
of  the  area  being  touched  and  pre- 
sents a  brief  description  to  the  user. 

Some  Background  Work 

For  our  application,  1  started  with 
an  existing  background  template 
consisting  of  a  frame  and  four  but- 
tons. These  buttons  came  preset 
with  the  ability  to  go  to  the  home 
stack,  to  advance  or  go  back  one 
card  at  a  time,  and  to  go  to  the  first 
card  in  the  stack.  See  Figure  2. 


Figure  A 
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Figure  5 

#    File    Edit    Go    Tools    Objects 


Figure  6 
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My  application  was  built  by 
pasting  a  clip-art  picture  of  a  fish 
onto  the  background  image  and  by 
creating  two  text  fields  to  contain 
the  card  title  and  the  description  of 
the  card.  This  is  shown  in  Figure  3. 

The  next  step  was  to  place  a 
series  of  transparent  buttons  on  the 
various  parts  of  the  fish  that  I  want- 
ed to  identify.  These  buttons  are 
hidden  from  view  when  in  use,  but 
are  shown  as  rectangles  in  Figure  4. 

At  this  point  the  stack  consists 
of  one  card  whose  background  im- 
age has  a  picture  of  a  fish,  two  text 
fields,  and  a  lot  of  buttons  (most  of 
which  don't  do  anything  yet.) 

The  next  task  was  to  label  the 
first  card  by  moving  the  cursor  to 


the  top  text  field  and  typing  in  its 
name,  as  shown  in  Figure  5. 

Next,  I  created  six  more  cards 
(each  created  with  a  single  key- 
stroke) in  which  I  added  text  to  iden- 
tify the  tail,  body,  gills,  fins,  eyes, 
and  mouth  of  the  fish.  Once  this 
task  was  complete,  all  that  remained 
was  to  link  each  of  my  transparent 
buttons  to  the  correct  card  in  the 
stack.  HyperCard  makes  this  task 
very  easy.  The  user  simply  selects 
the  button,  advances  to  the  destina- 
tion card  and  indicates  that  these 
two  objects  are  to  be  linked.  After 
the  stack  is  created,  the  new  buttons 
can  be  hidden  from  view  so  that,  as 
soon  as  the  user  clicks  on  a  part  of 
the  fish  (its  eye,  for  example),  the 


appropriate  card  is  instantly  brought 
into  view.  See  Figure  6. 

A  Look  At  The  Watch 

This  application  isn't  very  sophisti- 
cated but  took  only  a  few  minutes 
to  create.  It  is  important  to  note 
that,  except  for  the  text  associated 
with  the  parts  of  the  fish,  this  pro- 
gram required  no  typing — it  was 
constructed  by  direct  manipulation 
of  the  programming  tools.  I  have 
written  extensively  on  direct- 
manipulation  languages  in  the  past, 
and  HyperCard  is  (so  far)  the  best 
example  of  this  type  of  language  I 
have  encountered. 

Next  Month 

Next  month,  we'll  lift  the  hood  and 
look  closely  at  the  underlying  meta- 
phor of  HyperCard.  We  will  also 
explore  HyperCard's  programming 
language,  HyperTalk.  HyperTalk  is 
used  to  create  the  "real"  programs 
that  are  hidden  from  view.  Once 
HyperTalk  is  mastered,  you  are 
able  to  create  fresh  HyperCard  ap- 
plications from  scratch. 

Dr.  Thornburg  welcomes  letters  from 
readers  and  can  be  reached  at  P.O.  Box 
1317,  Los  Altos,  CA  94023.  © 


COMPUTE!  is  currently 
looking  for  quality 
programs  and  articles 
on  IBM  PC  and 
compatible  ma- 
chines. If  you  have 
an  interesting  home 
application,  educa- 
tional program, 
programming  utility, 
or  game,  submit  it  to 
COMPUTEL  P.O.  Box 
6406,  Greensboro, 
NC  27403.  For  infor- 
mation on  author 
guidelines,  see  COM- 
PUTEI's  Author's  Guide 
elsewhere  in  this 
issue. 
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Helpful,  Thorough, 

Books  from  COMPUTE! 


COMPUTEI  Books  provides  you  with  the  most  up-to-date,  easy-to-use  programs 

and  tutorials  for  your  personal  computer.  Each  copy  is  loaded  with  helpfui 

programming  hints,  tutorials,  games,  and  much  more.  Here's  just  a  sample  of 

the  many  outstanding  titles  from  COfy/IPUTEl 


Jet  Fighter  Sctiooh  Air  Combat  Simulator  Tactics  and 
Maneuvers 

Richard  G.  Sheffield 

Perfect-bound  edition:  ISBN  0-87465-092-0  S9.96 

Spiit-wire-bound  edition:  ISBN  0-87455-1 0<3-8  Sl2,95 

Learn  actual  combat  maneuvers  and  much  more  with  this 
hands-on  book  for  popular  jet-combat  simulators  like  F-1S 
Strike  Eogle,  Jet,  and  Ace.  Information  about  jet  fighter  pi- 
lots ond  their  aircraft,  especially  the  F-15.  provides  an  ex- 
cellent introduction  to  the  subject.  The  heart  of  the  book 
demonstrates,  step-by-step,  numerous  offensive  and  defen- 
sive combat  flight  maneuvers,  from  the  Hi  Yo-Yo  to  the 
Defensive  Spiral  Drive.  Tactical  tips  on  F'15  Strike  Eagle 
scenarios  round  out  the  book.  F-15  Strike  Eagle  or  other  jet- 
combat  flight  simulator  required. 

COMPUTEfs  Firs*  Bool<  of  Amiga 

Edited 

ISBN  0-87455-090-4  316.96 

COfvlPUTE!  Publications  hos  collected  some  of  its  best 
games  and  opplicotions,  plus  some  never-before-published 
programs,  to  show  off  the  enormous  capabilities  of  this 
multitasking  machine.  Included  ore  games,  programming 
tips,  and  applications  such  as  "Hex  Wars,"  "Biker  Dave," 
"AmigaDOS  Batch  Files,"  and  "AmigoTerm  "  Each  program 
has  been  fully  tested  and  is  ready  to  type  in.  There  is  also  a 
disfe  available  for  $15.95  which  includes  the  programs  from 
the  txyok. 

Making  Doliars  and  Cents  wltti  Dollars  and  Sense 

Gia  i^ojells  and  James  Bartimo 

ISBN  0-87455-101-3  $18.95 

Take  charge  of  your  money  w/ith  this  guide  to  Monogram's 
Dollars  and  Sense,  the  bestselling  personal  and  business 
financial-management  program  for  the  ISM  PC  and  the 
Appie  Macintosh.  Making  Dollars  and  Cents  with  Dollars 
and  Sense  takes  you  past  the  manual  to  fully  exploit  this 
powerful,  versatile  software.  Graph  income  and  expense, 
analyze  cash  fiow,  and  see  your  real  financial  picture  so 
you  con  moke  more  informed  decisions. 


COMPUTEI's  Guide  to  Sound  and  Graphics  on  the  Apple 
I1«s 

William  B.  Sanders 

ISBN  0-87455-096-3  $16,95 

This  tutorial,  by  the  outhor  of  The  Elementary  Apple  IIgs,  be- 
gins by  showing  how  to  create  graphics  and  sound  using 
Applesoft  BASIC,  but  it  doesn't  stop  there.  The  book  in- 
cludes a  multitude  of  programs,  routines,  and  utilities  with 
which  you  can  open  the  llss's  Toolbox,  a  sophisticated  set 
of  programming  tools,  so  that  you  can  produce  truly  omaz- 
Ing  sights  and  sounds. 

Fiying  on  instruments  with  Flight  Simulator 

Jonathan  M.  Stern 

Perfect-bound  edition:  ISBN  0-87455-091-2  S9.95 

Split-wire-bound  edition:  ISBN  0-8 7455-1 03-X  $12,95 

Here's  fascinating  hands-on  instruction  on  flying  with  in- 
struments in  Flight  Simulator  and  Flight  Simulator  II  How  to 
fly  in  all  kinds  of  weather.  How  to  read  the  instrument  ap- 
proach charts  that  instrument-rated  pilots  use.  And  how  to 
navigate  by  using  the  impressive  instruments  available  in 
Flight  Simulator  and  Flight  Simulator  li.  More  than  130  ac- 
tual instrument  approach  procedure  chorts.  For  all  versions 
of  Flight  Simulator  and  Flight  Simulator  II  (Apple.  Amiga, 
Atari,  Atari  ST,  Commodore,  IBM  PC  and  compatibles,  Mac- 
intosh). Flight  Simulator  or  Flight  Simulator  II  required. 

COMPUTEI's  Third  Book  of  Commodore  64  Games 

Edited 

ISBN  0-87455-095-5  $  1 5.95 

COMPUTE!  Publications  has  brought  together  another  excit- 
ing coliection  of  nerve-tingling  games  that  will  delight  the 
whole  family.  Clearly  written,  with  non-technical  instruc- 
tions, this  book  contains  hours  of  challenging  entertainment 
for  beginning  computer  fans  as  well  as  experienced  pro- 
grammers. There  is  a  companion  disk  available  for  $12.95 
thiat  includes  all  the  programs  in  the  book.  (955BDSK). 


You'll  find  these  great  books  at  any  of  the  stores  listed  on  these  pages. 
Just  look  for  the  COMPUTE!  Books  display. 


and  Entertaining 

Shop  these  COMPUTE!  Books  dealers 
for  the  latest  COMPUTE!  publications. 
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Willow  Grove.  PA 
Gomes  'n'  Gadgets 

Court  at  King  of  Prusslo 

King  of  Prussia,  PA 
Games  'n'  Gadgets 

Park  City  Center 

Lancaster,  PA 
Games  'n'  Godgets 

Granite  Run  Mall 

Media,  PA 
Games  'n'  Godgets 

Century  III 

West  Mifflin,  FA 

SOUTH  CAROLINA 

Electronics  Boutique 
Haywood  Moll 
Greenville.  SC 

TENNESSEE 

Games  'n'  Gadgets 
Mall  of  Memphis 
Memphis.  TN 

VIRGINIA 

Gomes  'n'  Gadgets 
Coliseum  Moll 
Hompton.  VA 

Games  'n'  Gadgets 
Lynnhaven  Mall 
Virginia  Beach.  VA 

Games  'n'  Godgets 
Pembroke  Mall 
Virginia  Beach.  VA 
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Microscope 


Sheldon  Leemon 


Go  Directly  To  Jail 


Monopoly™  is  one  of  the  most  pop- 
ular board  games  ever  produced,  so 
it  should  come  as  no  surprise  to 
anyone  that  it's  one  of  the  most 
popular  computer  games  as  well.  In 
the  last  few  years,  versions  have 
been  written  for  the  Commodore  64, 
Atari  800,  IBM  PC,  Macintosh,  Atari 
ST,  and  Amiga.  Although  none  of 
these  programs  are  sold  commer- 
cially, they  have  been  widely  dis- 
tributed by  information  services, 
BBS's,  user  groups,  and  public  do- 
main software  copying  services. 

What  most  computer  owners 
don't  realize  is  that  as  open  and 
widespread  as  the  distribution  of 
these  programs  has  been,  it  hap- 
pens to  be  illegal.  Most  people  as- 
sume that  if  there  were  a  legal 
problem,  Parker  Brothers,  the  com- 
pany which  holds  the  trademark 
and  copyright  for  Monopoly''"'*', 
would  have  complained. 

As  it  turns  out,  the  company 
has  been  completely  unaware  of 
what  was  going  on.  It  was  not  until 
a  user  named  David  Addison  made 
and  distributed  a  particularly  de- 
tailed version  of  the  game  on  the 
Amiga  that  Parker  Brothers  became 
aware  of  the  problem.  This  pro- 
gram contained  the  phrase  "A 
Parker  Brother  game"  on  its  title 
screen,  which  apparently  made 
someone  think  that  Parker  Brothers 
might  be  interested.  They  were  not 
only  interested,  but  appalled  to 
learn  how  many  computer  versions 
were  being  circulated. 

Parker  Brothers  has  since 
mounted  a  vigorous  campaign  to 
remove  these  programs  from  circu- 
lation. It's  going  to  be  an  uphill 
battle,  however,  considering  the 
number  of  users  who  are  distribut- 
ing these  programs  to  their  friends. 

Patents,  Copyrigtits, 
And  Trademarks 

Since  a  large  segment  of  the  popu- 
lation never  uses  computers,  it's  not 


really  surprising  that  the  board 
game  manufacturer  didn't  find  out 
until  now.  What  is  surprising  is  that 
the  computer  community,  which 
usually  tries  to  police  itself  in  such 
matters,  didn't  catch  on  earlier. 
With  the  large  number  of  "look  and 
feel"  lawsuits  going  on,  distributers 
of  public  domain  software  have  be- 
come careful  to  screen  out  pro- 
grams that  too  closely  mimic 
popular  commercial  video  games. 
Apparently,  they  aren't  quite  so 
sensitive  when  it  comes  to  the  legal 
perils  of  appropriating  other  types 
of  intellectual  property  via  computer. 

Some  of  the  confusion  may 
stem  from  the  fact  that  the  laws 
protecting  intellectual  property  are 
numerous  and  cpmplex.  The  idea 
for  a  board  game  like  Monopoly'''" 
can  be  protected  by  a  patent.  This 
excludes  anyone  else  from  market- 
ing a  game  with  the  same  object, 
style  of  play,  and  so  on.  In  addition, 
the  expression  of  that  game  idea  is 
protected  by  copyright  for  a  term  of 
75  years.  The  game's  expression  in- 
cludes the  graphics  used  for  the 
game  board  and  card,  the  shapes  of 
the  playing  pieces,  and  the  text  of 
the  instructions. 

Even  after  the  copyright  expires, 
Parker  Brothers  will  still  be  protected 
by  trademark  law.  This  law  is  de- 
signed to  prevent  a  company  from 
confusing  the  public  into  tliinking 
that  its  product  is  Actually  that  of 
another,  more  famous  company. 

The  most  obvious  violation  is 
using  another  company's  brand 
name,  like  Monopoly'''''',  for  your 
program.  But  a  distinctive  graphic 
design  or  logo  can  also  constitute  a 
trademark,  and  thus  trademark  law 
can  protect  a  graphic  long  after  the 
copyright  has  expired.  For  example, 
it  would  be  silly  to  expect  that  ev- 
erybody will  be  able  to  use  the 
Mickey  Mouse  character  after  the 
copyright  expires.  That  character 
has  become  so  strongly  associated 


with  Disney  that  using  Mickey  in 

your  advertising  would  be  unfair.  It 
would  suggest  that  your  product  is 
in  some  way  associated  with  Dis- 
ney. The  same  law  applies  to  the 
distinctive  elements  of  the  Monop- 
oly''"" game,  like  the  locomotive,  or 
the  little  man  with  the  mustache. 
The  fact  that  you're  giving  the 
game  away,  rather  than  selling  it, 
doesn't  make  it  any  more  legal. 

The  Moral  Of  Ttie  Story 

The  lesson  here  is  that  you  have  to 
be  very  careful  when  creating  com- 
puter counterparts  of  existing 
games.  A  few  games,  like  backgam- 
mon, chess  and  checkers,  are  an- 
cient in  origin,  and  are  best  known 
by  a  name  which  is  in  common 
usage  and  cannot  be  trademarked. 
Such  games  can  be  freely  imple- 
mented on  the  computer.  Other 
games  which  are  ancient  in  origin 
are  best  known  by  names  that  are 
the  trademark  of  the  present-day 
companies  that  manufacture  them. 
For  example,  the  ancient  Indian 
board  game  pachisi  is  known  by  the 
trademarked  name  Parchisi''"".  So, 
while  it's  okay  to  program  computer 
versions  of  pachisi,  yacht,  or  reversi, 
you  must  be  sure  not  to  call  them 
Parchisi™,  Yahtzee™,  or  Othello^". 
With  modern  games  like  Monopo- 
lyTM  yQu  jTiu5t  be  more  careful. 

It  would  probably  be  OK  to 
program  a  game  that  played  by  the 
same  rules  as  Monopoly"""",  as  long 
as  you  didn't  use  any  of  the  same 
names,  playing  pieces,  board 
graphics,  or  card  text,  but  there's 
hardly  any  point  in  doing  so.  Com- 
puters present  the  opportunity  to 
create  fantastic  new  games  that 
could  never  exist  in  the  physical 
world.  Programmers  would  be  bet- 
ter off  trying  to  build  the  future, 
rather  than  recreate  the  past.       © 
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Reviews 
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Video  Professor 

Ervin  Bobo 

Requirements:  VHS-format  video  cassette 
player,  and  IBM  PC  or  compatible. 

The  link  between  video  recorders  and 
computers  is  usually  found  in  the  re- 
cording of  computer  graphics,  or  the 
use  of  the  VCR  as  a  means  of  data 
storage.  The  Video  Professor  series, 
however,  is  an  attempt  at  using  the 
VCR  as  a  teaching  tool,  and  the  good 
news  is  that  it  works. 

With  seven  tapes  currently  avail- 
able in  the  series  (a  total  of  26  will  be 
available  by  January),  Data  Link  is  cov- 
ering what  it  considers  to  be  the  ripest 
areas  for  computer  education.  I  would 
guess  that  a  check  with  your  local  com- 
puter store  would  show  these  to  be  the 
topics  most  requested  by  those  seeking 
professional  classroom  instruction;  In- 
troduction to  and  Advanced  Personal 
Computing;  Introduction  to  and  Ad- 
vanced Lotus  1-2-3;  Introduction  to 
dBase  lU;  and  WordPerfect  (two  levels). 

The  video  cassettes  are  not  meant 
to  replace  software  documentation  or 
instruction  manuals,  but  are  designed 
to  be  used  as  a  supplement.  It  is,  in  fact, 
quite  likely  that  after  studying  the  tape, 
you'll  find  the  actual  documentation 
much  easier  to  understand. 

Meet  Your  PC 

The  two  cassettes  on  Personal  Comput- 
ing are  aimed  at  the  beginner.  Introduc- 
tion to  Personal  Computing  starts  with 
basics,  showing  you  how  to  connect  the 
components  of  a  PC.  This  section  is 
limited  to  connecting  keyboard,  moni- 
tor, and  printer.  While  the  camera  does 
go  inside  the  computer  to  point  out  the 
CPU  and  RAM  chips,  there  is  no  men- 
tion of  installing  boards  or  of  setting 
DIP  switches.  Presumably  your  com- 
puter salesperson  did  this  for  you. 

Following  this,  you  are  taught 
some  of  the  basic  PC-DOS  commands, 
such  as  DIR,  COPY,  FORMAT,  FOR- 
MAT/S;  use  of  the  keyboard;  common 
errors  to  avoid  (such  as  erasing  your 
disk);  and  basic  computer  techniques 
(such  as  how  to  store  your  disk). 

Advanced  Personal  Computing 
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The  Video  Professor  series  offers  hands-on  instruction  by  means  of  video  cassette. 


may  not  be  as  advanced  as  some  would 
wish — which  could  leave  room  for  a 
third  tape  in  this  series — but  it  does 
cover  more  areas  of  PC-DOS,  including 
copying  disks;  structure  of  directories 
and  subdirectories;  batch  files  and  the 
autoexec  routine;  and  the  fundamentals 
of  hard  drive  operation. 

Easy  As  1-2-3 

Introduction  to  Lotus  1-2-3  includes  an 
overview  of  Lotus;  basic  commands;  ex- 
planations of  cells,  rows,  and  columns; 
screen  scrolling;  and  an  explanation  of 
the  menus.  Subjects  treated  with 
greater  depth  include  range  commands 
and  math  functions. 

The  WordPerfect  entry  consists  of 
an  introduction  and  a  Level  II  cassette. 
In  the  introduction,  you  get  an  over- 
View  of  the  program,  loading  instruc- 
tions, how  to  make  and  save  documents, 
use  of  the  spell  checker,  and  text  ma- 
nipulation. Level  n  carries  on  with 
search-and-replace  functions,  automat- 
ic backup,  page  layout,  switching  and 
windowing  documents,  and  so  on. 

In  addition  to  the  tapes  previewed 
for  this  article,  there  is  Advanced  Lotus 
1-2-3  and  Introduction  to  dBase  IlL 


Clear  Presentation 

The  tapes  display  solid  production  val- 
ues. They  do  not  look  as  though  they 
were  produced  by  ABC,  but  they 
weren't  quickly  produced  or  kludged 
together,  either.  Overall  brightness, 
lighting,  and  clarity  are  fine.  The  tapes 
looked  good  on  a  19-inch  TV  monitor 
and  required  no  tracking  adjustment  on 
my  VCR — which  generally  speaks  well 
for  the  method  of  duplication. 

The  instructional  format  of  the 
tapes  is  a  dialogue  between  the  off- 
screen professor  and  an  assistant  named 
Pam,  The  professor  states  a  rule,  such  as 
using  the  Alt  key,  and  Pam  demon- 
strates it  by  typing  on  the  keyboard.  In 
other  instances,  Pam  asks  questions,  al- 
lowing the  professor  a  chance  to  ex- 
pound on  a  particular  principle. 

In  presenting  visual  examples — 
which  is  the  point  of  having  the  lessons 
on  video  tape — a  split-screen  effect  is 
used.  Pam's  hands  and  the  keyboard 
are  at  the  bottom  of  the  screen,  while  a 
transparent  overlay  on  top  shows  the 
effects  that  will  occur  on  your  monitor. 
This  overlay  is  the  actual  monitor  out- 
put and  is  intercut  with  closeups  show- 
ing a  particular  detail  on  the  screen  or  a 
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key  on  the  keyboard.  It  is  a  good  idea 
and  much  more  effective  than  simpty 
photographing  a  monitor  screen. 

Other  visual  interludes  include 
statement  and  restatement  of  rules  and 
principles  done  in  animated  graphics  in 
a  variety  of  fonts.  Chapter  headings 
and  chapter  reviews  are  also  handled 
this  way,  as  is  an  illustration  of  a  Lotus 
worksheet  divided  by  horizontal  and 
vertical  lines  in  an  effort  to  better  ex- 
plain the  concept  of  cells.  Obviously, 
the  graphic  interludes  are  not  only  de- 
signed for  visual  appeal,  but  also  are 
intended  to  help  break  a  routine  that 
might  otherwise  be  monotonous. 

All  the  tapes  I  viewed  are  on  T-60 
cassettes.  After  subtracting  the  intro- 
duction and  the  ending  credits,  you'll 
have  just  a  bit  less  than  one  hour  of 
instruction  per  tape.  Since  students  in  a 
classroom  may  ask  questions  that  do 
not  interest  you,  the  tapes  may  provide 
more  information  than  a  one-hour  class. 

Professor  Problems 

My  one  quarrel  with  the  Video  Profes- 
sor series  is  the  professor  himself.  He 
sounds  like  a  pale  imitation  of  Sid  Cae- 
sar's professor — though  not  deranged 
and  with  a  less  pronounced  accent — 1 
see  no  reason  at  all  for  the  intrusion  of 
what  probably  was  meant  to  be  a  comic 
European  accent.  That  idea  had  its  hey- 
day long  ago  and  it  is  strange  to  think 
that  some  producer  or  director  consid- 
ers it  funny,  cute,  or  necessary  in  this 
context. 

There  are  a  few  minor  inconsisten- 
cies. In  Introduction  to  Personal  Com- 
puting, it  is  stated  that  drive  A  is 
usually  on  top,  but  in  one  of  the  Word- 
Perfect tapes,  drive  B  is  on  top.  And 
while  we  are  supposed  to  be  seeing 
Pam  typing  the  professor's  commands, 
the  hands  shown  are  clearly  male.  But 
these  are  minor  and  in  no  way  detract 
from  the  tapes'  educational  content. 

Lessons  Learned 

As  to  the  worth  of  the  video  lessons 
themselves,  I  can  see  several  areas 
where  they  could  prove  to  be  of  high 
value.  I  think  that  the  form  of  the 
lessons — with  dialogue,  questioning, 
statement  and  restatement  of  principles 
and  conventions — effectively  captures 
one  tried-and-true  method  of  teaching. 

Given  that  one  can  learn  from  the 
tapes,  it  means  you  also  can  learn  at 
your  own  speed.  For  review,  simply 
rewind  the  tape  and  study  the  idea  as 
many  times  as  necessary. 

I  can  also  see  how  these  tapes 
might  be  added  to  a  growing  video 
library  of  college  adult  education 
courses.  Also,  an  enterprising  computer 
store  might  use  them  in  either  a  rental 
or  leaner  library,  thus  offering  an  alter- 


native  to   more   expensive   classroom 
teaching. 

It  is  also  possible  that  such  a  library 
might  be  used  by  persons  considering 
the  purchase  of  software.  They  could 
obtain  a  working  overview  of  a  program 
and  evaluate  it  in  terms  of  their  particu- 
lar needs  and  in  their  ability  to  learn. 

Video  Professor 
Data  Link  Research  Services 
1536  Cole  Blvd..  Ste.  180 
Golden,  CO  80401 
$79.95  each 


The  Ancient  Art 
Of  War  At  Sea 

Keith  Ferreli,  Features  Editor 

Requirements:  IBM  PC,  XT,  AT,  or  com- 
patible; 256K  RAM;  joystick  or  keyboard 
driven;  not  compatible  with  MS-DOS  3.2 
or  PC-DOS  3.2. 


The  heroic  age  of  fighting  sail  continues 
to  exert  a  powerful  influence  on  the 
imagination — centuries  after  sail  was 
superseded  by  steam,  wooden  hulls  by 
armored  ones.  There's  something  ro- 
mantic and  adventurous  about  the 
thought  of  well-trained  sailors  scurry- 
ing through  high  riggings,  crack  cannon 
crews  loading  and  firing  broadsides, 
stalwart  captains  placing  their  flagships 
in  harm's  way  for  cro\\'n  and  country. 

Of  course,  there  was  a  dark  side  to 
such  romance,  as  there  is  to  any  colorful 
conception  of  combat.  Life  at  sea  was 
harsh,  morale  could  sink  as  rapidly  as  a 
scuttled  ship,  and  close  combat  after 
grappling  was  brutal  and  bloody. 

Now  Brederbund  has  captured 
both  aspects  of  the  heroic  days  of  naval 
combat  in  The  Ancient  Art  of  War  at  Sea. 
This  handsome,  ambitious  package 
puts  players  in  charge  of  fleets  of  flag- 
ships, frigates,  and  ships-of-the-line, 
facing  armadas  of  determined  enemies. 
The  program  disk  contains  several  re- 
creations— or  near  recreations — of  clas- 
sic naval  battles. 

There  are  also  several  built-in  sce- 
narios of  unspecified  date,  designer 
wars  at  sea  pitting  your  fleet  against 
huge  navies  and  impossible  odds.  Some 
of  the  scenarios  play  the  "what  if?" 
game:  What  if  the  Bismarck  had  been  a 
powerful  sailing  vessel  two  centuries 
before  World  War  11?  And  if  the  scenari- 
os aren't  sufficient  in  number  and  vari- 
ety, there's  a  powerful  game  generator/ 
designer  that  let's  you  custom  tailor 
your  own  naval  battles  to  your  own 
tastes. 


Screen  Games 

War  at  Sea  is  a  game  of  many  screens, 
each  serving  a  particular  function. 
Upon  booting  up,  you're  asked  if  you 
wish  to  go  to  war.  Enter  no,  and  you 
can  choose  from  game  design,  alter- 
ation of  defaults,  and  visits  to  "Ye  Olde 
Options  Shoppe"  to  add  or  remove 
frills  from  the  campaigns.  Enter  yes, 
and  you're  presented  with  the  first  of  a 
series  of  parchment  scrolls;  these  are 
working  scrolls,  by  the  way.  Nicely  ani- 
mated, they  furl  and  unfurl  at  your 
command,  with  a  cutlass-shaped  cursor 
by  which  you  adjust  options  and  select 
scenarios.  Via  the  scrolls,  you  can  also 
alter  aspects  of  each  scenario,  making 
shallow  and  rough  waters  more  or  less 
dangerous,  increasing  the  speed  at 
which  ships  are  repaired,  and  so  on. 

The  11  scenarios  strike  me  as  well 
selected,  with  enough  variety  to  give  a 
sense  of  all  the  different  strategies  and 
tactics  possible  in  seafaring  war.  Since 
the  package  also  includes  a  game  de- 
signer, there's  a  near-infinite  combina- 
tion of  conflicts. 

Five  of  the  prepared  scenarios  are 
imaginary;  four  are  based  pretty  closely 
upon  historical  conflicts;  two  are  "what 
if"  scenarios;  the  eleventh  is,  as  nearly 
as  I  can  figure,  the  product  of  a  vicious 
designer.  (It's  my  favorite  of  all  the  sce- 
narios.) Each  scenario  comes  with  a  des- 
ignated enemy  commander,  each  with 
his  own  set  of  tactics  and  skills.  You 
have  the  option  of  changing  the  com- 
mander, though,  and  testing  yourself 
against,  say,  Blackbeard  at  Trafalgar,  or 
Lord  Nelson  and  the  Spanish  Armada. 

Once  you've  selected  a  scenario,  a 
story  "scroll  unrolls,  giving  you  back- 
ground information  on  what  you're  up 
against.  And  soon,  you're  actually  up 
against  it. 

The  imaginary  scenarios  have 
much  in  common.  You're  up  against 
implacable  and,  at  first,  seemingly  inex- 
haustible fleets  of  enemy  ships.  Your 
own  resources  would  be  stretched  thin 
if  they  were  fully  supplied — but  they're 
not.  it's  up  to  you  to  allocate  resources, 
put  ships  in  port  for  repair  and  resup- 
ply,  and  position  your  squadrons  where 
they  stand  the  best  chance  of  holding 
off  the  enemy,  at  least  for  a  while. 

Of  course,  if  you're  bold  enough, 
you  can  take  the  offensive,  driving  deep 
into  enemy  waters  in  hopes  of  captur- 
ing their  crown  before  they  capture 
yours.  As  admiral,  you  must  choose 
both  offensive  and  defensive  squadrons 
carefully — the  loss  of  your  flagships 
means  the  enemv  has  won. 

Navigation  is  accomplished  on  a 
scrolling  scenario  map  that  shows  land 
masses,  shallow  and  rough  waters, 
wind  direction,  and  the  position  of  both 
friendlv  and  unfriendly  forces.  Crown 
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A  NEW  STANDARD  FOR  THE  UNIVERSE 

...  NOW  AVAILABLE  ON  EARTH 


11 
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VOICE  ACTIVATED 
CONTROL  HEADSET 


The  LipStik  Plus  is  a  revolutionary  i 
game  control  that  adds  a  new  dimens 
excitement  and  realism  to  joystick  operated 
programs.  The  LipStik  Plus  is  "voice  activateST 
and  functions  as  an  extra  control  button.  Iti 
does  not  replace  your  joystick  but  is  used  with  '■ 
it  to  enhance  and  expand  your  game  playing 
enjoyment.  Just  plug  your  joystick  into  the 
LipStik  Plus.  Because  it's  so  simple  and 
doesn't  require  additional  interface  software, 
the  LipStik  Plus  works  with  thousands  of 
existing  games.  Virtually  95%  of  all  games 
that  use  a  joystick  are  compatible  with  the 
LipStik  Plus.  It  can  also  be  used  with  most 
popular  home  Video  Arcade  Machines  such 
as  the  Atari  2600,  5200  and  the  Sears  Arcade 
IVIachine. 


TH@  LIpStIk  Plus  a-_,p,,^_^_„  a"—- ' 
you've  grown  tired  of'^la^^^^^K^he  head- 

cil^i^HHHiHHHiHHHHBpi''^'  ^'^^ 

you  use  it  with  your  favorite  game  you'll  know 
what  we  mean.  You'll  find  yourself  getting 
more  absorbed  in  the  action  than  you  ever 
thought  possible. 


Suggested  Retail  Price:  s 

$24.95  Commodore  64/128/VIC  20/Ami 
'  '         Atari  Computers  400/800/XUXE/ST 

Atari  Game  Machines  2600/5200/7800 
$29,95  Apple  HE,  IIC,  IIGS  (II  &  II  +  w/adapter) 

IBf\/l  &  Compatibles  (w/joystick  card) 

It  you  can't  find  cur  praducls  at  your  local  dealer,  you  can  order 
direct.  Far  mall  orders,  enclose  cliecit  or  money  ofder,  plus 
S3.DD  shipping  and  handling,  and  spnily  imohine  version 


desired.  Order  by ifliaigaiHnWHIlKiligCanlflLUI.D.  bycaOing 

TOLL  FREE  (Bim^nfe«aM|ii||MHHr 

ACCESS  SOFrWAnrfflmnn^^^BKoss.  Ur  34037 


■^.Ts-  Software  incorporated 


WE'VE  BLOWN  THE  COMPETIT 


0 


r^r^S-^S-SubLOGlC 


s  c  0  P  e  I 


m^^  C4-/128-- computers 


Up  Periscope!,  the  new  state  of  the 
art  in  submarine  simulation!  Blow- 
ing the  competition  out  of  the  water 
with  superior  combat  strategy  and 
tactics  courtesy  of  Captain  John 
Patten,  USN  (Ret.).  With  true 
animated  3D  graphics  courtesy  of 
SubLOGIC.  Up  Periscope!, 
generations  ahead  of  the  pack! 


-$29.95- 

Better  Engineering  at  a  Better 

Price 


Compare  hits  for  yourself! 


Feature 

(IBM  versions) 

Up  Perlscopel 

Silent  Service 

GAtO 

Sub  Battle 

Suggested 
Retail  Price 

S29.95 

$34.9S 

S39.95 

S39.9S 

Real  3-D 
Graphics 

Yes 

^o 

No 

No 

Split-screen 
Views 

Yes 

No 

No 

No 

Torpedo 
Data 

Computer 

Authentic 

WWIITDC 

display 

5-line  text 
display  only 

No 

2-llne  text 
display  only 

Size  of 

-World- 

All  U.S. 
operating 
areas  in 

Atlantic  and 
Pacific,  fully 
detailed. 

Section  of 

Pacific. 
not  all  of 
Japan 1 

Tiny, 

imaginary 
patrol  area. 

Sections  of 
Atlantic  and 
Pacific  Oceans 
partial  details 
only. 

Time- Date 

Selection 
Capability 

Yes 

No 

No 

No 

Zoom 

Feature 

Map  or 
ship  view 

Map  view 
only 

No 

Map  or 
Ship  view 

Save  Feature 

Yes 

No 

No 

Yes 

ON  RIGHT  OUT  OF  THE  WATER! 


Damage  Report 
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OH 
OK 

HUiL     DANOai 

KLtCTRlC     ROTORS 

OK 
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OK 

FUII.     LEAK 

OK 

■ATTERICS 

OK 

APT    TDKPEAO    TUKEI    rSIIIMS 

OK 
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PK 
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ThunderChopper 


See  Your  Dealer 


And  don't  forget  Thunder- 
Chopper!  For  true  helicopter  ac- 
tion and  realism,  nothing  else 
even  comes  close.  Thunder- 
Chopper  incorporates  the  most 
advanced  graphics,  flight 
systems,  and  game-playing 
factors  to  provide  a  sensational 
balance  of  strategy  and  fun. 


"  t9B7  ActionSoft  CorporaBon 

3D  gpaphics  and  special  eflects  courtesy  SuhLOGtC  Cofp. 

ComnrxxiOre  64  and  Commodore  128  an  registersd  tratie- 

mariis  o1  Commodore  Electronics  Ltd. 

Apple  is  a  registered  lrademait<  ol  Apple  Computer,  Inc.lBM 

is  a  registered  trademarK  ot  Inlamaliofial  Business 

Mar^irws  Corp. 

Silent  Saniice  is  a  trademar1<  of  Mlcroprose  Software.  Inc. 

GATO  is  a  trademar*  ol  Spectrum  Holobyte.  a  division  of 

Sphere,  Inc. 

Sub  Battle  Simulator  Is  a  tradeniBrk  ot  Epyx,  Inc. 


!^^j^^:ss^cs,'«'subioo-': 


J-  113  ■  comP""" 


Or  write  or  call  for  more  infor 

Up  Periscope!  and  Thunder- 
Chopper  are  available  on  disk  for 
the  Commodore  64/128,  Apple  II, 
and  IBM  PC  line  of  persona! 
computers  for  the  suggested  retail 
price  of  $29.95.  For  direct  orders 
please  specify  which  computer  ver- 
sion you  want.  Include  $2.00  for 
shipping  (outside  U.S.  $6.25)  and 
specify  UPS  or  first  class  mail 
delivery.  Visa,  MasterCard, 
American  Express,  and  Diners  Club 
charges  accepted. 


•GENERATIONS  AHEAD  IN  STRATEOV  ACTION  SOFTWAHE- 

201  WEST  SPRINGFIELD  AVENUE.  SUITE  71 1 
CHAMPAIGN,  IL  61820  (2171398-8388 


cities  are  shown  on  the  map,  as  are 
ports.  Ports  must  be  supplied  by  mer- 
chant vessels,  which  are  easy  prey  for 
the  enemy. 

At  The  Helm 

At  the  beginning  of  the  scenario,  your 
craft  are  at  anchor.  Position  the  cursor 
over  one  of  the  anchor  icons  and  you 
have  several  choices.  Info  tells  you  how 
many  ships  are  present  and  what  their 
supply,  hull,  and  sail  status  are,  and 
whether  they  are  frigates,  flagships,  or 
ships-of-the-line.  A  fleet  information 
option  gives  you  a  sense  of  the  odds 
you  face. 

With  a  sense  of  the  ships  available, 
you  can  put  squadrons  in  motion  as 
provided  by  the  scenario,  or  detach 
ships  to  form  other  squadrons  of  up  to 
three  vessels.  Since  some  of  the  squad- 
rons must  sail  quite  a  distance,  you  can 
take  advantage  of  the  time  speed-up 
options  offered  on  the  master  menu, 
increasing  the  rate  of  time  passage  for 
long  sailing  and  slowing  it  for  close 
maneuvering  or  combat. 

While  your  ships  sail,  so  do  the 
enemy's.  This  phase  of  the  game, 
viewed  on  the  map  screen,  takes  the 
form  of  a  deadly  dance,  with  dark  black 
enemy  icons  moving  into  your  territory 
while  your  own  white  icons  move 
along  the  courses  you've  set  for  them. 
As  the  results  of  engagements  show, 
victory  in  a  sea  battle  is  strongly  affect- 
ed by  position,  with  the  flotilla  running 
with  the  wind  at  a  decided  advantage 
over  ships  positioned  against  it.  Tack- 
ing for  wind  advantage  becomes  crucial 
as  fleets  near  each  other. 

Wind  isn't  everything,  though.  A 
crack  crew  can  help  you  through  even 
the  toughest  of  odds.  Crews  don't  be- 
come crack,  however,  automatically. 
Broderbund  addresses  this  with  a  prac- 
tice option  that  lets  you  drill  your  crews 
until  you're  familiar  with  their  opera- 
tions. No  amount  of  drill  can  fully  pre- 
pare you  for  combat,  though. 

Close  For  ActionI 

When  combat  occurs,  it  is  realistic.  A 
message  line  on  the  navigation  screen 
informs  you  of  looming  encounters. 
When  an  encounter  takes  place,  ship 
icons  transform  into  crossed  cutlasses. 
Placing  the  cursor  over  the  encounter 
presents  you  with  two  options.  One  is 
informational — you  can  discover  the 
forces  you  have,  and  those  you're  up 
against — the  other  option.  Zoom,  shifts 
your  perspective  to  the  battle  screen. 
This  screen  gives  you  a  close-up 
view  of  the  battle  at  hand.  You've  got 
the  choice  of  two  views:  a  long  view  of 
the  battle  that's  useful  for  maneuver- 
ing, and  a  close  view  for  combat.  Watch 
the  wind  direction.  Adjust  your  sails  as 


111  The  Ancient  Art  of  War  at  Sea, 
screen  maps  let  you  posilion  your  forces 
in  harm's  way. 

necessary — War  at  Sea  teaches  you 
pretty  quickly  the  disastrous  results  of 
getting  caught  with  sails  furled,  as  well 
as  the  advantages  reaped  by  catching 
your  enemy  bare  masted. 

Close  view  is  where  the  action 
takes  place.  Here  the  ships  are  revealed 
in  detail.  Practice  has  taught  you  the 
capabilities  of  your  crews  and  their 
craft.  You  can  quickly  get  a  sense  of  the 
enemy's  strategy  by  way  of  their  ac- 
tions upon  initiating  combat.  Some  of 
the  adversaries  simply  force  their  way 
forward,  heedless  of  the  damage  into 
which  they  sail.  Others  fight  a  more 
thoughtful  battle,  tacking  to  get  the 
wind  on  their  side,  firing  when  the  shot 
is  sure  to  do  the  most  damage. 

Your  own  strategy  takes  shape  as 
well.  If  you  have  a  squadron,  you  must 
order  the  other  ships  to  follow  your  lead, 
or  shift  your  command  from  ship  to  ship 
as  you  move  through  the  firing  order. 
The  cannon  can  fire  from  one  side  of  the 
ship  at  a  time,  and  it  takes  time  to 
change  firing  sides;  reload  time  must 
also  be  figured  into  your  combat  plans. 

There  is  a  stateliness  to  these  battles 
that  belies  their  viciousness.  Even  as 
damage  is  taken,  men  are  lost,  and  ships 
are  sundered,  the  spectacle  of  high- 
masted  warships  maneuvering  around 
each  other  takes  on  an  almost  chess-like 
elegance.  The  elegance,  as  well  as  the 
damage  incurred,  is  well-represented  by 
War  at  Sea's  excellent  graphics  and  ani- 
mation. Ship  types  are  easily  recogniz- 
able, movement  is  smooth,  course 
alterations  are  realistically  depicted,  and 
damage  is  evident  as  sails  are  shredded. 
Separate  sections  of  the  command 
screen  deliver  vital  information  about 
wind,  sails,  and  headings. 

Some  battles  can  be  resolved  at  a 
distance.  Other  situations,  though,  call 
for  grappling  and  boarding — or  for  be- 
ing grappled  and  boarded  by  your  op- 
ponent. In  either  case,  another  screen  is 
revealed  and  you  are  placed  in  com- 
mand of  sailors  armed  with  swords  and 
marines  armed  with  rifles.  You  can  or- 
der attacks  and  crossings  from  railing, 
quarterdeck,  or  poopdeck,  or  you  can 


stand  and  try  to  repel  enemy  boarders. 
Again,  animation  is  exemplary,  even 
when  delivered  via  a  Hercules  card 
rather  than  a  CGA.  The  game's  design- 
ers are  helping  put  to  rest  accusations 
that  PCs  can't  animate.  Your  men  move 
from  place  to  place  as  ordered.  When 
killed,  a  figure  collapses  to  the  decks.  In 
victory,  the  victors  raise  their  arms  in 
salute  before  you  are  returned  to  the 
main  navigation  screen  to  ready  your- 
self for  the  next  battle. 

History  At  Sea 

The  program  spans  the  great  age  of 
fighting  sail,  with  historical  scenarios 
that  range  from  the  Spanish  Armada  in 
1508  to  Trafalgar  in  1805,  As  impressive 
as  the  imaginary  scenarios  are,  it  is  in  the 
recreations  of  history  that  The  Ancient 
Art  of  War  at  Sea  really  came  to  life  for 
me.  You  can  get  a  sense  of  the  sorts  of 
odds  faced  by  participants  in  classical 
battles,  try  your  hand  at  changing  the 
course  of  history  (not  always  witting- 
ly— under  my  command,  the  English 
fleet  fell  to  the  Spanish  Armada  more 
than  once),  and  pit  yourself  against 
some  of  the  great  fleets  and  commanders. 

The  historical  scenarios  include: 
the  Spanish  Armada  (1588),  with  you 
as  the  English;  the  Nile,  merging  battles 
that  occurred  in  1676  and  1798,  with 
you  facing  the  French;  Quiberon  Bay 
(1759),  in  which  you  play  the  French 
and  face  the  English;  and  Trafalgar 
(1805),  in  which  you  take  Nelson's 
place  and  attempt  to  match  his  skill  in 
facing  powerful  enemy  fleets. 

As  the  mingling  of  history  in  the 
Nile  scenario  indicates,  not  all  of  the 
battles  are  purely  historical.  This  is  es- 
pecially true  of  one  of  the  most  anach- 
ronistic of  the  scenarios — Bismarck. 
This  scenario  involves  sailing  ships,  as 
do  they  all,  but  the  setup  is  that  of  the 
Bismarck,  which  you  command.  You 
have  a  great  battleship  and  a  compan- 
ion ship  of  near-equal  size,  as  well  as 
two  smaller  warships.  The  British  have 
placed  every  ship  on  alert,  with  orders 
to  sink  you  at  all  costs  before  you  reach 
open  sea.  It's  anachronistic,  but 
challenging. 

There  are  a  few  other  anachro- 
nisms. One  of  the  enemy  commanders 
you  face  is  Thor  Foote,  a  bold  and 
headstrong  Viking.  Ship  names  seem  to 
be  drawn  from  all  over,  with  quite  a  few 
American  presidents  lending  their 
names  to  ships  in,  say,  a  battle  that 
occurred  years  before  those  presidents 
were  born.  These  sorts  of  liberties, 
though,  seem  restricted  to  the  imagi- 
nary battles. 

Design  it  Yourseif 

If  anachronisms  bother  you,  you  can 
create  your  own  games.  War  at  Sea's 
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No  matter  what  kind  of  game  you're  in  the 
mood  for,  you'll  find  that  if  it's  in  a  box  marked 
FIREBIRD,  it's  really  hot! 

Firebird  offers  the  excitement  of  a  whole 
range  of  challenges  —  Adventures  and  Strategies 
for  long  rainy  weekends,  Arcade  games  for 
exhilarating  evenings,  Simulations  when  you 
need  to  get  away  from  it  all,  Produaivity  software 
when  you're  feeling  —  well,  productive. 

Look  for  the  Firebird  —  it  stands  for  top- 
quality  software  in  xirtually  every  category. 

Adventures 

Ablaze 

The  world  has  been 
waiting  for  a  sequel  to 
the  highly-acciaimed 
PAWN,  with  its 
stunning  graphics  and 
revoludonaiy^  text-handling 
system.  Here  at  last  is  GUIID  OF 
TTilBTiS,  an  extraordinary  Adventure  like  no 
other!  Look  for  the  Firebird  logo  on  other 
addictive  Adventures,  too  —  like  the  stunning 
GOLDEN  PATH,  or  the  magical  illusion  of 
KNIGHT  ORG  with  its  supert)  graphics. 

Four-Alarm  Arcade  Action 

when  it  comes  to  &st-paced  Arcade  games, 
nothing  beats  Firebird's  STMIGLIDER,  a 
breathtaking  combat  flight  simulation  widi 
inaedibiy  rapid  3D  vector  effects. 


Or  try  ELITE,  a  game  so 
different  it  defies 


categorization,  or  the  end- 
lessly puzzling  CHOLO. 


Sizzling  Strategies 

[f  you're  in  the  mood  for  Strategy,  and  have 
exceptional  concentration  and  near-perfect 
hand/eye  coordination,  you'll  love  the  challenge 
of  SENTOY  with  Its  more  than  10,000  full-color 
landscapes  and  four-way  saolling.  More 
Strategies  from  Firebird:  the  revolutionary 
UNIVERSAL  MILITARY'  SIMULATOR*  and 
TRACKER,  games  that  inu:oduce  totally  new 
concepts  in  taaical  \\'arfare. 

-     Power  for 


powerful  graphics  routines,  while  our  MUSIC 
SYSTEM  in  bodi  concise  and  advanced  versions, 
brings  new  stimulation  to  music  lovers.  This  is 
Firebird  —  the  best  in  interactive  software  of 
every  description.  We'll  prove  to  you  that  you 
don't  have  to  keep  switching  brands  to  satisfy 
your  obsession  for  challenge! 


CREDIT  CARD  HOTLINE 

(201)  444-5700  p=^r^ 


.icr**- 


Firebird  even  offers 
economical,  professional- 
quality  Produaivity 
software!  ADVANCED  ART 
STUDIO  is  a  compre- 
hensive art  package  with 


"The  First  Full  Line  In  Software" 

Firebird  Licensees,  Inc. 

P.O.  Box  49,  Ramsey,  N)  07446 

(201)444-5700 

Firebird  sofo^e  for  IB.Vl-compaiible  systems,  Amiga,  C64,  Atari 
520Sr,  Madmosh,  and  J^le  11,  Ls  available  6rom  124.95  lo  $59.95. 

RrriiM  zkI  tk  FDcbtal  I19  zc  ngiicicd  ualcnife  q(  IMiiiil  UcnHa  Isle 

'A\7iEabtcJaniai)'  liff. 

IBM  ts  J  regtsOT^  irxkiiurli  nf  IncnuikvuJ  f^uiines  ^bchlnei  CcqMoun 

Midine,  inc. 

NWnUKh  ind  Appit  II  are  KoaetHl  radtmato  of  Ap(*  Cooipicr.  Inc. 

520^  i»  a  icgignrd  Iiadeinark  of  Auii  CorpotlJai- 


campaign  designer  is  well  thought-out 
and  thorough.  It  consists  of  five  screen 
pages  of  components.  These  range  from 
coastlines  and  '  inland  areas,  to  deep 
waters,  rough  and  shallow  waters, 
wind  cherubs  to  indicate  direction  of 
the  wind,  even  identifiers  and  decora- 
tive pieces.  An  onscreen  grid  is  used  for 
positioning  each  piece  of  the  map. 
Rules  for  positioning  are  clearly  pre- 
sented, and  have  been  kept  simple. 

Ship  selection  doesn't  vary  from  the 
prepared  campaigns — you  have  frig- 
ates, ships-of-the-line,  and  flagships.  As 
in  the  main  game,  these  are  classic  ver- 
sions of  those  ships,  standards  that  rep- 
resent the  class  of  ship  in  question  rather 
than  any  particular  vessel.  If  one  could 
wish  for  anything  more  from  this  very 
complete  package,  it  would  be  the  abili- 
ty to  custom  design  new  ships  and  class- 
es of  ships.  Another  would  be  for  a 
wider  selection  of  opponents. 

Build  squadrons  after  you've  built 
a  map.  Name  the  ships  yourself,  and 
position  friend  and  foe  on  the  screen. 
Give  the  new  campaign  a  title.  The 
campaign  designer  includes  a  blank 
scroll  on  which  you  can  write  your  own 
account  of  the  battle  you've  created. 
New  campaigns  may  be  stored  on  for- 
matted disks,  and  data  disk  becomes  an 
option  on  the  introductory  menu.  Al- 
though the  manual  is  not  completely 
clear  on  this.  The  Ancient  Art  of  War  at 
Sea  can  be  copied  to  hard  disk  or  back- 
up disk,  but  requires  the  original  master 
disk  as  key  disk  in  drive  A  \vhen  the 
game  is  played. 

Manual  Labor  Of  Love 

The  impressiveness  of  the  onscreen 
game  is  matched  by  the  documentation 
that  accompanies  the  program.  Docu- 
mentation, in  fact,  is  too  restrictive  a 
word  for  War  at  Sea's  manual.  This  is  a 
handsome  book  of  well  over  100  pages, 
printed  on  high-quality  coated  stock 
and  filled  with  well-reproduced 
illustrations. 

Actual  game  instruction  occupies 
only  a  portion  of  the  manual.  The  rest  is 
concerned  with  giving  historical  per- 
spective on,  appropriately  enough,  the 
art  of  warfare  under  sail.  The  program's 
authors,  Dave  and  Barry  Murry,  are 
talented  historians  as  well  as  game  de- 
signers. The  history  lessons  included  in 
the  manual  are  clearly  written,  with 
judiciously  selected  illustrations  and  il- 
lustrative quotations. 

Especially  interesting  was  their 
look  at  the  evolution  of  naval  combat 
tactics.  Lessons  learned  from  these 
pages  can  be  applied  with  good  effect  to 
the  battles  you  encounter  on  the  com- 
puter. A  reference  glossary  is  included 
in  the  appendices,  but,  oddiy  and  un- 
fortunately, there  is  no  bibliography  or 


guide  to  further  reading.  It  would  have 
been  nice  to  know  which  sources  the 
authors  drew  upon  for  their  recreation, 
(Source  citations  are  given  beneath  the 
illustrations  and  can  be  used  as  a  start- 
ing point  for  more  reading  on  this  fasci- 
nating subject.) 

The  Ancient  Art  of  War  at  Sea  is  the 
kind  of  game  that  won't  be  gathering 
many  barnacles  on  my  shelf.  I'll  be 
sailing  this  one  for  some  time  to  come. 

The  Ancient  Art  of  War  at  Sea 

Braderbund  Software 

17  Paul  Dr. 

San  Rafael,  CA  94903-2101 

S44.95 


Galileo 

For  The  Amiga 

Ervin  Bobo 


Retjuireinents:  Amiga  ivifh  a  minimum  of 
512K. 


Astronomy  programs  exist  for  every 
leading  personal  computer,  but  it  is 
only  now,  with  a  combination  of  Galileo 
and  the  Amiga,  that  one  of  the  major 
obstacles  to  a  realistic  astronomical  dis- 
play has  been  overcome.  Previously, 
the  limitation  of  computer  graphics 
made  it  necessary  to  show  every  star, 
pianet,  and  deep  space  object  at  the 
same  level  of  brightness.  While  this  was 
a  workable  situation,  it  required  that 
the  magnitudes  of  heavenly  bodies 
either  had  to  be  stated  in  text  or  ig- 
nored. This  may  seem  a  small  matter — 
but  it  is  not,  and  your  first  look  at  the 
working  screen  of  Galileo,  with  nine 
distinct  levels  of  brightness,  should  be 
enough  to  make  you  catch  your  breath. 
Following  that,  you'll  have  other 
opportunities  for  surprise,  and  perhaps 
at  least  one  for  dismay. 

Star  Light,  Star  Brigtit 

Once  booted,  Galileo  presents  you  with 
a  picture  of  the  night  sky  and,  at  the  left 
of  the  screen,  a  control  panel.  Activated 
by  mouse-clicks,  this  panel  allows  you 
to  scroll  the  screen  in  four  directions 
and  to  zoom  in  on  portions  of  the  sky. 
In  addition,  this  panel  displays  the  co- 
ordinates of  the  object  currently  under 
the  onscreen  crosshairs,  as  well  as  indi- 
cating whether  you  are  in  Planetarium, 
Local,  or  Flashcard  mode. 

Planetarium  mode  displays  the 
stars  in  absolute  form,  with  the  Pole 
Star  at  screen  center.  Local  mode  shows 
you  the  heavens  as  they  would  appear 
from  your  selected  location  (as  well  as 


selected  date  and  time).  Once  you 
choose  a  location,  that  information  can 
be  saved  to  your  working  disk,  and  this 
will  become  the  default  setting  when- 
ever you  select  a  Local  view.  Then,  by 
using  either  Quickview  or  the  scrolling 
arrows,  you  can  select  a  direction  for 
viewing  that  will  be  the  same  as  that 
obtained  when  standing  on  your  back 
porch,  or  anywhere  else  you  ma\'  choose. 
Flashcard  has  nothing  to  do  with 
viewpoint.  Instead,  it  presents  a  con- 
stellation for  your  identification.  You 
may  click  on  the  left  mouse  button  to 
see  whether  your  guess  is  correct.  As  its 
name  implies,  Flashcard  is  a  learning 
tool. 


Galileo  takes  advantage  of  tl\e  stunning 
graphics  capabilities  of  the  Amiga,  and 
displays  a  realistic  skyscape  with  nine 
different  levels  of  brightness. 

Any  Time,  Any  Place 

Via  pulldown  menus,  you  can  enter  the 
date  and  time  for  \vhich  you're  interest- 
ed. Galileo  is  said  to  have  reasonable 
accuracy  for  any  date  400  years  in  the 
past  or  future.  Beyond  those  points, 
accuracy  will  diminish  because  of  cer- 
tain movement  factors  not  considered 
by  the  program. 

Next,  select  the  location  from 
which  you  wish  to  view  the  sky.  An 
appendix  provides  latitude  and  longi- 
tude for  over  a  hundred  major  cities 
around  the  globe,  thus  making  it  possi- 
ble for  you  to  teleport  to  Buenos  Aires  if 
that  happens  to  be  the  best  place  from 
which  to  observe  a  solar  eclipse  or  a 
planetary  conjunction. 

Lighting,  either  Bright  or  Normal, 
can  be  selected,  and  this  changes  the 
intensity  of  the  display  without  altering 
the  relative  brightness  of  the  stars.  (It  is 
suggested  you  use  Galileo  in  a  dim  or 
darkened  room  to  obtain  the  fullest  ef- 
fect, and  to  avoid  distracting  reflections 
on  your  monitor  screen.) 

You  may  also  select  the  amount  of 
Skylight  (though  ground  scatter  is  the 
more  familiar  term).  With  this,  you  du- 
plicate the  ambient  light  of  cities,  towns 
or  country.  Switching  from  Country  to 
City  light,  with  the  consequent  disap- 
pearance of  dimmer  stars,  shows  you 
just  how  much  city  dwellers  miss.  On 
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VISA,  MasterCard  &  COD  orders 

A  onn  oo'>  /Lor 


call: 

1-800-223-6925 

(In  Iowa  319/373-0224) 


lire  it  is.  You  won't  find  software  that's  easier  to  use: 

•  Requires  no  accounting  knowfedge 

•  Completely  menu-driven  wltti  on-line  tielp 

•  93-page  fully  Indexed  tutorial  manual  (on  disk) 

A  Proven  Track  Record.  Hard  to  believe  ttie  $16  price?  Don't 
worry.  MoneyCounts®  has  been  marketed  for  three  years  and 
is  continually  receiving  rave  reviews.  There's  no  catch.  This  is  a 
fully  functional  system  that  compares  with  products  selling  for 
$99  and  more. 

Same-Day  Shipping.  Order  today  and  own  MoneyCounts®  for 
only  316!  Add  S3  shipping  and  handling  (outside  North  America 
add  37).  Iowa  residents  please  add  4%  sales  tax.  Send  check 
or  money  order  payable  to  Parsons  Technology  VISA  and 
MasterCard  orders  welcome. 


~  }t^i^v.7ec4v^^. 


Depi  COM 

692S  Surrey  Drive  HE 

Cedar  Rapids,  lA  52402 


MONEY 
COUNTS 

S16+  S3  Shipping 


MoneyCounts"  requires  IBM  or  compatible  computer 
witti  two  disk  drives  (or  o  flora  di5l<  drive).  '192k  or  more 
memory.  DOS  2  0  or  later  and  printer 


Nome: , 

Address' 

Citv/State/illp: 

Plione; 

Check  __  Money  Order VISA 

Card  # 


MasterCard . 
Exp-  Date 


When  you  want  to  talk  computers.. 


ATARI  COMPUTERS         COMMODORE  COMPUTERS  MS/DOS  SYSTEMS 


65XE  64K  Computer 94.99 

130XE  132K  Computer 129.00 

520ST  FM  Monochrome  System489.00 

520ST  FM  Color  System 639.00 

SF1224  Color  Monitor 289.00 

SF124  Mono  Monitor 139.00 


Atari  1040 

Color  System       ^839 

Includes:  1040ST,  1  mb  RAM  with  SVz" 
drive  built-in,  192K  ROM  with  TOS,  Basic, 
ST  language  and  color  monitor. 


ATARI  ST  SOFTWARE 


Access 

Leaderboard  Golf 24.99 

Activision 

Music  Studio 29.99 

Atari 

First  Word 16.95 

Batteries  Included 

Degas  Elite 44.99 

OSS 

Personal  Pascal 49.99 

Timeworks 

Wordwriter  ST 48.99 

VIP 

Professional   (GEM) 144.00 

Aegis  Development 

Animator/images 89.99 

Electronic  Arts 

Deluxe  Video 69.99 

Gold  Disk  Software 

Pageselter  w/Text  Ed 93.99 

IVIicro  Illusions 

Dynamic  CAD 349.00 

IVIicro  Systems  Software 

Scribble 69.99 

Word  Perfect  Corp. 

Word   Perfect 219.00 


AMIGA  SOFTWARE 


^  

Amiga  500  System 

Includes:  Amiga  500  CPU,  1  MB,  1080 
RGB  Monitor,  Amiga  DOS,  -^  .. 
Mouse,  Kaleidoscope  w3ll 

Commodore  128 259.00 

Commodore  128D 529.00 

Commodore  64C 179.00 

64C,  1541C,  1802C  Package. ...599.00 

128,  1571.  2002  Package 759.00 

128D,  2002  Package 829.00 

HARD  DRIVES 

CIVIS 

MacStack  20 599.00 

Logic  Array 

Pro  App  20S 699.00 

Lo  Down 

Low  Down  20 849.00 

Mountain 

20  MB  Hard  with  SCSI 899.00 

FLOPPY  DRIVES 
Efiman  Engineering 

800K  ExJernal  Floppy 199.00 

IVIONITORS 
Network  Specialties 

Stretch  Screen  20" 1399.00 

Radius 

Full  Page  Display 1599.00 

Sigma  Designs 

Laser  View  Display  System 1999,00 

MEMORY  BOARDS 
Dove  Computer 

Mac  Snap  Pius  2 249.00 

Mac  Memory,  Inc. 

Max  Plus 319.00 

SCANNERS 
AST 

Turbo  Scan 1489.00 

SOFTWARE 
Asfiton-Tate 

D:Base  Mac 319.00 

Microsoft 

Word  3.1 239.00 


AST  Premium  Computer Call 

Compaq from  1699.00 

IBM-PS-2  Model  30 Call 

IBM-AT  Enhanced Call 

Leading  Edge from  999.00 

PC-TOO  51 2K  AT-Compal.from  999.00 
NEC  Multispeed  Computer 1499.00 


TOSHIBA  T-1000 

Lap  Top  Computer         ^Oo9 


MACINTOSH  HARDWARE       MULTIFUNCTION  CARDS 


AST 

Six  Pak  Plus  PC/XT 129.00 

Hercules 

Color  Card 159.00 

Graphics  Card  Plus 199.00 

Fifth  Generation 

Logical  Connection  256K 299.00 

Quadram 

EGA  Prosync ; 249.00 

Video  7 

VEGA  EGA  Adapter 179.00 

Zuckerboard 

Color  Card  w/Parallel 89.99 

Ashton-Tate 

d-Base  III  + 399.00 

5th  Generation 

Fastback  Utility 89.99 

IMSI 

Optimouse  w/Dr.  Halo 99.99 

Lotus 

Lotus    1-2-3 329.00 

MicroPro 

Professional  4.0  w/GL  Demo 239.00 

Microstuf 

Crosstalk  XVI 89.99 

P.F.S, 

First  Choice  (Premium) 99.99 

Word  Perfect  Corp. 

Word  Perfect  4.2 209.00 


MS/DOS  SOFTWARE 


y 


COMPUTER  MAIL  ORDER 


When  you  want  to  talk  price. 


DRIVES 


Atari 

AA314  DS/DD  Disk  (ST) S199.00 

AA354  SS/DD  Disk  (ST) 119.00 

SHD204  20  Mb  ST  Hard  Drive.. 569.00 
Commodore 

Amiga   1020 189,00 

Amiga  1010  SVe" 219.00 

1541C 179.00 

1571 239.00 

1581  3V2"  External 229.00 

Indus 

GT  Disk  Drive  Atari  XUXE 179.00 

Racore 

Jr.  Expansion  Ciiassis 299.00 

Seagate 

20  mb  ST-225  Hard  Drive  Kit. ...339.00 

Supra 

20  Meg  Hard  Drive  (Amiga) 749.00 

20  Meg  Hard  Drive  (ST) 559.00 

Xebec 

20  mb  (Amiga) 899.00 

Amdek 

Video  300  Amber  Composite 139.00 

Commodore 

Commodore  2002 319.00 

Amiga  1080  Hi-Res  Color 299.00 

Commodore   1802 199.00 

Magnavox 

8502  Composite 179.00 

8505  RGB/Composite 199.00 

8562 259.00 

NEC 

JC-1401P3A   Multi-Sync 549.00 

Princeton  Graphics 

IViAX-12  12"  Amber  TTL 139.00 

Taxan 

Model  124  12"  Amber 119.00 


MONITORS 


Thomson  4120 
RGB/Composite 

Zenith 

ZVM  1220/1230 


^249 


.(ea.)  99.99 


MODEMS 


Anchor 

Volksmodem    1200 $99.99 

6480  C64/128  1200  Baud 119.00 

VM520  ST520/1040  1200  Baud. 129.00 
Atari 

SX212  (ST) 89.99 

Best 

1200  Baud  External 119.00 

Commodore 

Amiga  1680-1200  BPS.. 169,00 

CBM  1670  &  0-128) 99.99 

Everex 

Evercom  1200  Baud  Internal 109.00 


Hayes  *-ioq 

Smartmodem  300    ^129 

Hayes 

Smartmodem  1200  External 289.00 

Novation 

Parrot   1200 89.99 

Practical  Peripherals 

Telecom  Package 129.00 

Supra 

MPP-1064  AD/AA  C64 69.99 

2400AT  2400  Baud  Atari 169.00 

U.S.  Robotics 

Direct  1200  External 109.00 

2400  Baud  Internal 189.00 

Maxell 

MD1-M  SS/DD  5V4" 9,99 

MD2-DM  DS/DD  5V4" 10,99 

MF1-DDM  SS/DD  SVe" 12,99 

MF2-DDM  DS/DD  3V2" 21.99 

Sony 

MDID  SS/DD  5Vi" 8.99 

MD2D  DS/DD  5Va" 10.99 

MFD-100  SS/DD  3V2" 13.99 

MFD-200  DS/DD  SVa" 20.99 

Hewlett-Packard  Calculators 

2BC  Scientific  Pro 199.99 

18C  Business  Consultant 139.95 

12c  Slim  Financial 74.99 


DISKETTES 


PRINTERS 


Atari 

1020  XUXE  Plotter $31,99 

XDM121   Letter  Quality 159.00 

XMM801  XL/XE  Dot  Matrix 185.00 

XMM804ST  Dot  Matrix 179.00 

Brother 

M-1109  100  cps,  9  pin 199.00 

M-1409  180  cps,  9  pin 319.00 

Citizen 

MSP-10  160  cps,  80-Column 279.00 

Premier  35  cps  Daisywheel 489.00 

C.ltoh 

315P  132  Column  Prowriter 549,00 


Epson  EX-1000   ^  __._ 
300  cps  132  col.     *499 

Epson 

LX-800  150  Cps,  80-column Call 

FX-86E  240  cps,  80-column Call 

FX286E  240  cps,  132-column Call 

LQ-1Q00  24  Wire,  300  cps 559.00 

LQ-850,  LQ-1050,  24  Pin Call 

Hewlett  Packard 

Thinkjet 379.00 

NEC 

Pinwriter  2200  24  Wire Call 

Pinwriter  660  24  Wire 459,00 

Pinwriter  760  24  Wire 679.00 

Okidata 

Okimate  20  Color  Printer 129.00 

ML-182  120  cps,  80-column 219.00 

ML-192-1-  200  cps,  80-column. ..329.00 

ML-193-1-  200  cps,  132-column.479.00 

Panasonic 

KX-1080i  144  cps,  80-column.... 179.00 

KX-1091i  194  cps,  80-column.. ..189.00 

KX-P3131  22  cps  Daisywheel.. ..289.00 

Star  Micronics 

NX-10  120  cps,  80-column 159.00 

NX-10C  120  cps,  C64  lnterface.189.00 

NX-15  120  cps,  132-column 319.00 

Toshiba 

P-321   SL  216  cps,  24-Pin 539.00 

P-351  II  300  cps,  24-Pin 889.00 


In  the  U.S.A.  and  in  Canada 

Call  toll-free:  1-800-233-8950. 

Outside  the  U.S.A.  call  717-327-9575    Telex  5106017898     Fax  717-327-1217 
Educational,  Governmental  and  Corporate  Organizations  call  toll-free  1-800-221-4283 
CIVIO.  477  East  Third  Street,  Dept.  A201,  Williamsport,  PA  17701 
ALL  MAJOR  CREDIT  CARDS  ACCEPTED. 

POLICY:  Add  3%  (minimum  $7.00)  shipping  and  handling.  Larger  shipments  may  require  addilional  charges.  Personal  and  company  checks  require  3  weeks 
lo  clear.  For  faster  delivery  use  your  credit  card  or  seno  cashier  s  ctiecK  or  DanK  money  order.  Pennsylvania  residents  add  6%  sales  tax.  All  prices  are  U.S.A. 
phces  and  are  subject  to  change  and  all  items  are  subject  to  availability.  Defective  software  will  be  replaced  with  the  same  item  only.  Hardware  will  be  replaced 
or  repaired  at  our  discretion  within  the  terms  and  limits  of  the  manufacturer's  warranty.  We  cannot  guarantee  compatibility.  All  sales  are  final  and  returned  shipments 
are  subject  to  a  restocking  fee. 


the  other  hand,  it  is  probably  easier  for 
them  to  identify  major  objects  and  con- 
stellations without  the  crowded  back- 
ground of  other  stars. 

Magnification  Factors 

The  Telescope  option  opens  a  magnify- 
ing window  on  the  screen.  Use  your 
mouse  pointer  to  select  an  object  in 
which  you  are  interested,  and  an  en- 
larged view  of  it  will  appear  in  the 
window.  Such  views  are  relative  to  the 
size  and  distance  of  the  object — while 
the  moon  almost  fills  the  window,  Sat- 
urn is  barely  large  enough  for  you  to 
distinguish  its  rings.  Since  even  highly 
enlarged  stars  are  still  points  of  light, 
the  telescope  is  useful  only  for  the  ob- 
jects within  our  solar  system. 

For  deep-sky  objects,  another  form 
of  identification  is  provided:  You  may 
choose  to  display  Messier  Objects,  110 
of  which  are  identified  by  the  M  num- 
ber. Alternatively,  NGC  {New  General 
Catalog)  objects  are  represented  by  col- 
ored dots — though  if  your  field  of  view 
is  less  than  30  degrees,  there  will  be 
room  for  their  labels  to  be  displayed. 

Still  another  identification  system 
is  invoked  by  choosing  the  Brightstar 
option  from  the  menus.  When  this  is 
done,  35  of  the  brightest  stars  will  be 
identified. 

In  addition  to  these,  constellation 
lines  and  names,  as  welt  as  planetary 
names,  may  be  toggled  on  or  off  from 
the  proper  menu.  During  such  toggling, 
or  any  other  changes  made  such  as 
direction  of  view,  time,  and  so  on,  there 
will  be  a  wait  while  the  screen  redraws 
itself.  While  this  may  seem  tedious, 
bear  in  mind  the  complexity  of  calcula- 
tions your  computer  must  consider  in 
order  to  effect  a  change  and  still  main- 
tain accuracy. 

Another  unique  feature  from  the 
Extras  pull-down  menu  is  the  What's 
Up?  option.  By  selecting  this,  you'll  be 
told  in  graphic  form  what  planets  are 
visible  for  this  particular  day  and  time, 
for  the  time  of  sunrise  and  of  sunset,  for 
the  different  phases  of  the  moon,  and 
for  the  date  of  the  next  meteor  shower. 

Although  meteor  showers  are  not 
displayed  by  Galileo,  solar  eclipses  and 
planetary  eclipses  are  included.  Unfor- 
tunately, the  documentation  gives  you 
the  times  and  coordinates  for  only  one 
of  each,  so  you'll  have  to  refer  to  your 
astronomy  books  and  magazines  for 
others. 

The  Size  Of  Ttie  Universe 

It's  possible  there  may  be  some  lamen- 
tations among  the  more  serious  stu- 
dents or  professionals  in  astronomy: 
only  35  bright  stars  identified,  only  110 
Messier  Objects,  only  340  NGC  objects. 
Granted  that  those  are  but  small  por- 


tions of  what  is  really  out  there,  we 
should  keep  in  mind  that  we  are  deal- 
ing with  a  whole  universe,  and  that  all 
of  it  could  simply  not  be  stuffed  into  a 
computer  of  51 2K.  What  is  here  is 
choice — and  it  is  well  worth  your  while. 

Documentation  is  very  good,  serv- 
ing as  a  primer  on  many  aspects  of 
astronomy,  with  brief  discussions  of 
planetary  conjunctions,  an  overview  of 
meteor  showers  and  deep  sky  objects, 
and  much  more. 

For  me,  the  one  serious  deficiency 
in  Galileo  is  that  it  does  not  have  the 
ability  to  print  what  you  see  on  your 
screen.  Nor  will  it  run  in  conjunction 
with  any  of  the  screen  dump  programs 
in  my  library.  There  are  times  when 
hard  copy  would  fill  a  great  need:  A 
beginning  student  could  make  a  print 
out  of  the  sky  with  constellation  lines  in 
place  and  take  it  outside  with  him  that 
night  as  an  aid  to  identification. 

Despite  that  one  shortcoming,  I 
think  you'll  find  Galileo  to  be  a  highly 
valuable  tool. 

Galileo 

Infinity  Software 

1144  65th  St.,  Ste.  C 

Emeryville,  CA  94608 

$59.95 

(All  upgrade,  expected  in  late  1987,  will 

he  priced  at  S69.95.) 


Award  Maker  Plus 

Carol  S.  Holzberg 

Requirements:  Apple  //-series  with  a 
minimum  of  64K  (reviewed  here),  Macin- 
tosh, IBM  PC  and  compatibles.  Printer 
required. 

Do  you  have  any  school,  family,  or  of- 
fice occasions  that  merit  distinctive 
awards?  How  should  you  demonstrate 
your  appreciation  to  your  children  when 
they  clean  their  rooms  without  being 
told?  Is  it  time  to  give  official  recognition 
to  the  members  of  your  local  town  coun- 
cil, church  subcommittee,  or  community 
PTA  for  their  many  hours  of  dedicated, 
unpaid  committee  work?  Well,  there's  a 
new  program  on  the  market  that  can 
help  you  show  your  thanks. 

Award  Maker  Plus  makes  it  possible 
to  create  quality  awards  without  going 
through  the  bother  and  expense  of  pro- 
fessional typesetting.  The  program 
comes  on  two  double-sided  disks,  with 
seven  pages  of  simple  program  instruc- 
tions, and  an  Award  Style  Catalog  that 
pictures  different  styles  of  awards.  It 
will  print  out  286  awards  (including 
certificates,  licenses,  coupons,  and  di- 


plomas), in  eight  typestyles,  with  ten 
different  color  or  black-and-white  bor- 
ders, depending  on  the  capabilities  of 
your  printer  and  ribbons.  Award  cate- 
gories include:  academic,  family, 
sports,  humor,  office,  general,  and  hi- 
res picture. 

Step-By-Step 

The  program  provides  onscreen 
prompts  to  guide  you  through  the  de- 
sign and  printing  processes.  Arrow 
keys  move  the  cursor  through  the 
menus  to  highlight  activity  options. 
Pressing  RETURN  makes  a  selection, 
but  if  you  change  your  mind,  you  can 
press  the  ESCAPE  key  to  back  up  to 
previous  screens.  It  took  me  eight  steps 
to  print  out  my  first  award.  These  steps 
were:  entering  the  award  style  number; 
selecting  name  and  text  font;  entering 
award  text;  entering  signature  line;  en- 
tering date;  selecting  border  style;  se- 
lecting border  color;  and  printing 
award.  Before  printing,  I  had  to  config- 
ure my  printer  setup  to  match  my  hard- 
ware requirements.  Setup  only  needs  to 
be  done  once,  as  the  configuration  can 
be  saved  to  disk. 

There  are  plenty  of  features  to  give 
your  certificates  a  professional  touch.  In 
addition  to  printing  colored  borders,  if 
you  have  a  color  printer  with  multicol- 
ored ribbons,  some  of  the  awards  allow 
you  to  use  your  own  hi-res  pictures  for 
the  graphics.  These  pictures  must  be  a 
standard  binary  file  copied  onto  a  Pro- 
DOS-formatted  disk,  so  make  sure  you 
have  transferred  those  DOS  3.3  binary 
files  before  you  begin.  Print  Shop- 
compatible  border  graphics  also  can 
work  with  Award  Maker  Plus  as  long  as 
the  graphics  are  copied  onto  a  properly 
formatted  data  disk. 

The  Name  Game 

Another  nice  feature  of  Award  Maker 
Plus  is  its  ability  to  generate  several 
copies  of  a  certificate  with  a  different 
name  on  each  award.  You  can  do  this 
by  first  initializing  a  data  disk  and  se- 
lecting the  CREATE/EDIT  NAME  LIST 
option  that  appears  either  on  the  Main 


Award  Maker  Plus  can  print  up  to  286 
different  aioards  in  a  variety  of  type 
styles  and  borders. 
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WORK 
WITHUSONA 
PROFESSmiAL 


Some  people  really  like  work- 
ing on  their  machines.  And  then 
there  are  some  who  prefer  to  do 
their  tinkering  under  the  hood.  For 
those  of  you  who  can't  wait  to  get 
your  hands  greasy,  we  proudly 
introduce  geoProgramnier,  The 
most  sophisticated  machine 
language  programming  tool  on 
the  market. 

With  geoProgrammer,  you  get 
the  same  kind  of  technology  we  use 
for  developing  our  other  products. 
Which  means  you  can  write  super- 
charged software.  Pump  your  own 
programs.  And  assemble  just  about 
any  kind  of  application  you  can 
imagine. 

It  reads  and  writes  and 
stomps  on  bugs. 

The  first  three  tools  that 
any  serious  programmer  needs 
are  an  assembler,  a  linker  and 
a  debugger.  So  we've  installed  all 
three,  complete  with  sample  GEOS 
applications  that  teach  you  the  latest 
programming  tricks  in  seconds. 

geoAssembler  not  only  reads 
directly  from  geoWrite  files,  but 
contains  enough  Pseudo  Ops  to 


LEVH. 


^%)l 


i*1n„! 


I 


-              ■  ■                               1 

1  (eOi  1  fie  j  e*  j  options :  puje  i  lorrt  i  iDjI 

if  1 1  ^^  iu&ertkBU)  ^ 

-:■.'..,.  J.  '■?•■■ 

1    .    .    .    .    JJ,    -    .    . 

....  K.  ...  I  ....  ff.  . 

^tETTi  ivmfh  rcirn^KLD  »-jKmitn»^  L«c  pvtng.*  iw  ma  ta    1 

;«»«»       SoExai  iDaora 

«lt« 

,wMt  aunsPile 

J  w*  fflwro  liinnir  fJ* 

.iach!«  coLsiuti 

;isiio^t3iiliit 

fsm 

SMm 

;tfort  flUdrett  for  pro; 

ProgSlarl:  LojlV 

fOj  GnjMtiTilU 

,  joiit  t&  jsifiiir  sttiiy^iik 

iff 

GftplWfStniy 

;  l*t  GEOS  inw  it 

LoiiV 

K),  MiiaMtbu 

;[oul(oa*iiurtniLrni« 

i" 

D^Mean 

;  Jii  inv  ntjiiis 

It! 

;iuiu]i2iEi&xJou 

Stuibican: 

0 

;  I'tmii  dtCt  Tor  Iml  kpi 

•Also  available  for  mi  nil.  ClL!8s. 


allow  all  kinds 
of  conditional  assem- 
blies. It  has  all  the  state-of-the-art 
features  you'd  expect,  including 
some  you  probably  never  thought 
possible.  For  example,  integrating 
graphics  is  as  simple  as  cutting  and 
pasting  the  image  from  geoPaint 
directly  into  your  program. 

geoLinker  ties  your  program 
modules  together,  supporting 
GEOS  SEQ  and  VLIR  applications 
and  desk  accessories.  You  can  even 
use  geoAssembler  and  geoLinker  to 
create  non-GEOS  applications. 

VI  Berkeley 


geoDebugger  allows  your  pro- 
gram to  be  tested  in  memory  with 
full  symbolic  disassembly,  along 
with  line  assembly  for  patching 
code  in  memory.  It  also  allows 
your  code  to  be  single-stepped  or 
top-stepped,  with  sub-routines  fully 
executed.  It  can  stop  a  running  pro- 
gram with  one  key,  or  use  up 
to  eight  conditional  break- 
,    points.  When  your  program 
f'    hits  the  breakpoint,  it  promi- 
,'    nently  displays  the  error  in  an 
;    overlay  window,  leaving  the 
'     applications  screen  intact. 

Pro  enough  for  you  yet?  Well, 
that's  only  a  partial  list  of  what 
you're  in  for. 

If  you  understood  all  that, 
read  on. 

Chances  are  that  we  lost  a  lot 
of  readers  by  now.  But  if  you're  still 
with  us,  hang  in  there.  You  have  the 
makings  of  a  real  GEOS  pro.  All  you 
need  now  are  the  right  tools. 

And  all  of  them  come  in  this 
one  handy  box. 

So  if  you're  serious  about  pro- 
gramming, consider  geoProgrammer. 
After  all,  you've  got  nothing  to  lose 
— except  your  amateur  status. 


To  order  call  1-800-443-0100  ext.  234 
geoProgrammer  $69.95 

(California  residents  add  7%  sales  tax. ) 
$2.50  US/$5.50  Foreign  for  shipping  and 
handling.  Allow  six  weeks  for  delivery, 


GEOPROGRAMMER 


Softworks 

The  brightest  minds  are  working  at  Berkeley. 


Menu  when  the  program  is  first  booted 
or  on  the  Print  Menu  after  you  have 
already  completed  your  certificate  de- 
sign. Then,  enter  the  names  you  plan  to 
use  or  edit  an  existing  list. 

When  you  finish  entering  the 
names,  onscreen  prompts  will  instruct 
you  to  enter  a  filename  for  the  list  so  you 
can  save  it  to  your  data  disk.  Award 
Maker  Plus  then  gives  you  an  additional 
option.  You  can  use  all  the  names  on 
your  list  or  print  only  selected  names, 
This  feature  will  come  in  handy  if,  for 
example,  you  want  to  print  certificates  of 
completion  for  all  the  students  in  your 
class  or  merit  badges  for  the  members  of 
your  local  scout  troop,  and  so  on. 

The  program  comes  with  an 
Award  Style  Catalog,  Program  Instruc- 
tions, and  20  gold-embossed  press-on 
seals.  Baudville  is  offering  an  additional 
20  gold  seals  free  with  the  purchase  of 
Award  Maker  Plus  pinfeed-stock  French 
Parchment  paper.  The  parchment  pa- 
per is  expensive  but  it  does  give  an  air 
of  professionalism  to  the  finished 
document. 

Also  included  with  the  program  is 
a   sheet   of  special   instructions.   This 


sheet  lists  the  disk  and  side  for  each 
award  style  number  and  offers  some 
tips  on  font  selecting,  name  lists,  and 
printing.  Baudville  suggests  that  people 
having  two  disk  drives  might  want  to 
keep  the  main  program,  Disk  A  Side  1, 
in  drive  1  and  copy  Side  2  onto  another 
disk  so  that  it  can  be  placed  in  drive  2. 
This  would  minimize  disk  swapping 
and  make  operating  the  program  more 
convenient. 

All  in  all.  Award  Maker  Plus  is  a 
useful  addition  to  the  desktop  publish- 
ing market.  The  program  is  versatile 
and  well-suited  to  a  variety  of  pur- 
poses. The  focus  is  on  creating  and 
printing  rather  than  on  learning  or  re- 
membering a  roster  of  special  com- 
mands, keys,  codes,  or  symbols.  For  the 
price,  it  offers  value  that  will  measure 
up  to  all  your  expectations. 

Award  Maker  Plus 
Baudvilk' 

1001  Medical  Park  Dr.,  S.E. 
Grand  Rapids,  MI  49506 
$39.95  Apple  11  series  version 
$49.95  Macintosh  and  IBM  PC/compa- 
tibles versions 


Plundered  Hearts  And  Nord  And  Bert 
Couldn't  Make  Head  Or  Tail  Of  It 


James  V.  Trunzo 

Requirements:  IBM  PC,  XT,  AT  or  com- 
patible; Apple  11  series  (48K,  16  sector); 
ST;  A?niga;  Macintosh;  Commodore  64; 
Atari  XL/XE  fPlundered  Hearts  only). 


Infocom  has  extended  its  philosophy  of 
"Something  for  Everyone"  with  the  re- 
lease of  two  new  products:  Plundered 
Hearts  and  Nord  and  Bert  Couldn't  Make 
Head  or  Tail  of  It.  Each  of  these  pro- 
grams aims  at  what  appears  to  be  a 
specific  audience,  although  of  the  two, 
Nord  and  Bert  is  a  bit  more  far-reaching 
in  its  scope. 

Pirates  And  Passions 

Plundered  Hearts  addresses  romance- 
novel  fanatics  by  placing  players  in  the 
role  of  a  beautiful  young  English- 
woman, who,  while  traveling  to  the 
West  Indies  to  care  for  her  ailing  father, 
has  been  carried  off  by  a  handsome, 
passionate  pirate.  However,  the  pi- 
rate— dashing  Nicholas  Jamison — 
proves  to  be  the  least  of  your  worries. 
As  you  work  your  way  through  this  text 
adventure,  encounters  with  crocodiles, 
lecherous  evildoers,  explosives,  and 
shipwrecks  demand  as  much  attention 
as  your  growing  desire  for  the  bronzed- 
armed,  blue-eyed  buccaneer. 


This  17th-century,  high-seas  ad- 
venture does  for  text  adventures  what 
Rosemary  Rogers  did  for  romance  nov- 
els. Amy  Briggs,  the  author  of  Plun- 
dered Hearts,  has  thoroughly  captured 
the  essence  of  the  romance  novel,  in- 
cluding all  the  elements  of  the  genre: 
love,  passion,  danger,  passion,  intrigue, 
and  adventure.  .  .and  passion.  If  you 
didn't  catch  the  hint,  there's  some  pas- 
sion involved  in  the  storyline — nothing 
that  could  he  termed  lewd  and  crude — 
but  it  is  a  bit  suggestive.  Those  on  the 
prudish  side  should  consider  them- 
selves forewarned. 

The  prose  is  excellent  and  the  exot- 
ic flavor  of  the  days  of  skull  and  cross- 
bones,  bodices,  and  damsels  in  distress 
permeates  the  text.  Can  it  be  enjoyed  by 
someone  other  than  a  member  of  the 
fairer  sex?  Certainlv — if  vou  don't  fee! 
strange  reading  about  your  craving  for 
the  arms  of  another  man. 

Upun  My  Word 

Nord  and  Bert  is  a  horse  of  a  different 
color.  A  collection  of  eight  short  stories 
as  opposed  to  a  single  adventure,  this 
program  will  delight  all  who  enjoy  a 
good  play  on  words.  Each  of  the  eight 
stories  brings  into  play  a  different  type 
of  word  game:   cliches,   spoonerisms. 


puns,  homonyms,  and  so  on.  This  ver- 
bal trickery  makes  for  delightful  and 
challenging  play  in  what  is  sure  to  be 
one  of  the  most  unique  software  pack- 
ages of  the  season. 

Nord  and  Ben  departs  from  the 
typical  Infocom  format  in  more  ways 
than  one.  Not  only  does  the  program 
contain  a  collection  of  stories  rather 
than  just  one,  Nord  and  Bert  is  the  first 
Infocom  game  not  to  require  mapping. 
Instead,  a  status  line  at  the  top  of  the 
screen  tells  you  which  places  you  can 
get  to  next. 

Yet  another  new  approach  to  play- 
ing text  adventure  games,  at  least  for 
Infocom,  is  the  inclusion  of  hints.  By 
typing  HINT  in  any  of  the  scenarios, 
you  evoke  a  new  screen  that  provides 
you  with  a  list  of  subjects  relevant  to 
the  story  on  which  you're  working.  By 
highlighting  a  subject,  you  can  receive 
several  hints  or  even  the  answer, 
should  you  so  choose. 

While  none  of  the  stories  are  related, 
successfully  completing  segments  results 
in  the  revelation  of  a  password.  Gamers 
will  need  seven  passwords  to  get  into  the 
scenario  labeled  "Meet  the  Mayor." 

One  element  of  Nord  and  Bert  that  I 
found  especially  appealing  was  that  a 
story  could  be  completed  in  one  sitting.  I 
knew  before  starting  a  segment  that  I 
could  relax  and  enjoy  the  game  for  half 
an  hour  and  have  a  tangible  result  at  the 
end  of  that  time.  For  someone  looking  to 
kill  a  little  time,  this  product  is  perfect. 

The  stories  themselves  are  humor- 
ous to  the  point  of  making  me  laugh  out 
loud.  The  play  on  words  is  excellent, 
and  the  various  word  puzzles  are  chal- 
lenging and  creative.  This  game  is  more 
cerebral  than  it  might  appear.  To  suc- 
cessfully complete  the  game  without 
relying  too  heavily — or  completely — 
on  hints,  a  good  vocabulary  is  essential 
and  a  knowledge  of  old,  familiar 
sayings  is  more  than  a  little  helpful.  If 
you've  never  heard  of  "making  a 
mountain  out  of  a  molehill"  or  "watch- 
ing the  fur  fly,"  you  might  be  too  young 
or  too  modern  for  parts  of  this  program. 
Of  course,  that's  a  perfect  reason  to 
make  this  game  a  family  affair.  Dad  and 
mom  or  grandpa  and  grandma  might  be 
of  great  assistance  when  playing  Nord 
and  Bert. 

Plundered  Hearts 

Nord  and  Bert  Couldn't  Make  Head 

or  Tail  of  It 

Infocom,  Inc. 

125  Cambridge  Park  Dr. 

Cambridge,  MA  02140 

$39.95— Apple  11,  Macintosh,  IBM, 

Amiga,  and  Atari  ST  versions 

$34.95 — Commodore  64  version;  Atari 

XL/XE  fPlundered  Hearts  only) 
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Apple  lle/tic  compatible 


Now  your  kids  can  afford  to  do  their  iiomeworic 

More  and  more  students  are  learning  with  computers.  However  most  parents  haven't  been  able  to 

work  a  connputer  into  their  budget.  The  Laser  128  Apple-compatible  computer  will  let  you  do  all  those 

things  that  you  and  your  family  want  to  or  have  to  do  -  homework,  write 

reports,  even  play  games  for  a  fraction  of  the  cost  of  an  Apple.  With 

a  Laser  you  can  work  out  your  budget  on  a  computer,  instead  of 

breaking  it  with  one.  The  Laser  lets  you  take  advantage  of  the 

largest  software  library  available,  so  your  child  can  learn  more  at 

home  with  the  same  programs  they  learn  on  in  school.  And,  you 

can  do  your  work  at  home  on  the  Laser,  too. 

The  Laser  128  with  all  its  features:  built-in  disk  drive; 
128K  RAM  (expandable  to  1  megabyte);  serial,  parallel, 
modem  and  mouse  interfaces;  80  column  text  mode;  numeric 
keypad;  and  an  expansion  slot;  makes  for  a  pretty  educated 
buy.  When  you  do  your  homework  on  which  computer  to  buy, 
you'll  find  the  Laser  128  at  the  head  of  the  class  with  value.  For 
more  information  on  the  Laser  128  and  the  name  of  your 
nearest  dealer,  contact  Video  Technology  Computers,  Inc., 
400  Anthony  Trail,  Northbrook,  IL  60062,  or  call  (312}  272-6760. 


IllfLASER  128 


Apple.  Apple  lie  and  Apple  lie  are 
rogislered  trademarks  of  Apple  Computer.  Inc. 


Manufactured  by 

VIDEO  TECHNOLOGY  COMPUTERS,  INC. 


MAKING  COMPUTERS  AFFORDABLE 


Canfield 


Ed  Reynolds 


Play  a  hand  of  this  high-stakes  turn- 

of-the-ceutury  soUtaire  game  on  your 
computer.  You  start  with  $500,  and 
Fortune  is  beckoning.  You  can  break 
the  bank  or  lose  your  shirt  in  one  of 
the  best  computer  card  games  we've 
ever  published.  Originally  written  for 
the  Commodore  64,  we've  included 
versions  for  the  Atari  eight-bit  com- 
puters, Apple  I!  series,  IBM  PC/PCjr 
and  compatibles,  and  the  Amiga.  All 
versions  require  a  disk  drive.  The  PC 
version  requires  BASICA  or  GW- 
BASIC,  and  a  color /graphics  card  and 
Cartridge  BASIC  for  the  PCjr.  The 
Apple  U  version  works  on  any  Apple 
Il-series  computer,  under  either  DOS 
3.3  or  ProDOS. 


Among  the  many  games  that  peo- 
ple play,  solitaire  card  games  have 
long  been  among  the  most  popular. 
Such  games  are  ideal  candidates  for 
computerization.  With  this  in  mind, 
I  set  out  to  find  a  unique  solitaire 
game.  After  a  bit  of  research,  I  dis- 
covered "Canfield,"  a  game  that 
vi?as  in  vogue  around  the  turn  of  the 
century.  Although  I  did  eventually 
find  a  few  people  vt'ho  still  play  the 
game,  it  is  basically  unknown  now- 
adays. Canfield  is  as  intriguing  and 
challenging  as  any  solitaire  game 
around,  and  it  has  a  fascinating 
history. 

In  the  latter  part  of  the  nine- 
teenth century,  there  existed,  in 
Saratoga  Springs,  New  York,  a  lav- 
ish casino — the  Saratoga  Springs 
Club  House.  It  was  known  as  the 
"Monte  Carlo  of  America"  and  en- 
tertained  European   royalty,    U.S. 
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senators,  and  scores  of  American 

millionaires.  Its  founder  and  pro- 
prietor, Richard  A.  Canfield,  retired 
a  multimillionaire  when  a  wave  of 
antigambling  sentiment  eventually 
caused  the  permanent  closing  of 
the  casino  in  1914. 

One  of  the  more  popular 
games  offered  by  the  casino  was  a 
solitaire  game  invented  by  and 
named  after  the  casino's  founder. 
The  player  would  "purchase"  a 
deck  of  cards  from  the  casino  for 
$50  (a  princely  sum  in  those  days). 
Under  the  watchful  eye  of  one  of 
Mr.  Canfield's  croupiers,  the  player 
would  deal  the  layout  and  try  to 
beat  the  odds.  The  object  was  to  get 
all  52  cards  (or  as  many  as  possible) 
on  four  foundation  piles.  For  each 
card  placed  upon  a  foundation  pile, 
the  player  would  receive  $5.  Sound 
simple?  Just  wait. 

The  computerized  version  of 
Canfield  presented  here  preserves 
the  spirit  of  the  original  game,  but 
the  tedious  tasks  of  shuffling  and 
dealing  the  layout  have  been 
usurped  by  the  computer. 

As  with  all  card  games.  Can- 
field's  rules  seem  more  complicated 
in  print  than  when  you're  playing 
the  game.  Since  the  computer  won't 
let  you  make  an  illegal  move,  you 
can  learn  to  play  by  trial  and  error. 
For  those  who  want  to  know  what 
they're  getting  into,  complete  rules 
are  presented  below. 

The  Rules  Of  The  Game 

A  standard  deck  of  52  cards  is  shuf- 
fled. (In  the  computer  version,  a  I  is 
used  to  designate  the  number  10 
cards.)  Then,  13  cards  are  counted 


off,  face-down,  into  a  pile,  which  is 
then  placed  face-up  to  the  player's 
left,  to  form  the  stock,  One  card  is 
dealt  face-up  above  and  to  the  right 
of  the  stock  for  the  first  foundation. 
Then,  four  cards  are  placed  face-up 
in  a  row,  to  the  right  of  the  stock,  to 
form  the  tableau.  The  remaining  34 
cards  (held  face  down)  constitute 
the  pack. 

In  play,  the  cards  in  the  pack 
are  turned  up  in  batches  of  three 
and  placed  on  a  talon  pile  to  the 
right  of  the  pack.  The  top  card  of 
the  talon  is  available  for  play. 
When  all  of  the  pack  has  been 
played  onto  the  talon,  the  cards  are 
then  turned  over  and  become  the 
pack  once  again. 

The  other  three  cards  of  the 
same  rank  as  the  first  foundation 
card  are  also  foundation  cards,  and 
if  they  become  available  during 
play,  they  must  he  placed  up  along- 
side the  first.  You  must  then  build 
up  on  the  foundations  in  suit  and 
sequence  until  each  foundation  pile 
contains  13  cards. 

Note  that  the  ranking  in  each 
suit  is  circular — the  ranking  wraps 
around  the  king  and  ace.  For  ex- 
ample, if  the  queen  of  hearts  is  the 
foundation,  you  would  build  hearts 
on  this  pile  by  playing  next  the 
king,  then  the  ace,  then  the  deuce, 
and  so  on.  Your  computer  will  give 
you  a  little  help  here.  Whenever  a 
foundation  card  is  exposed  during 
play,  the  program  will  automatical- 
ly place  the  card  in  the  proper  place 
in  the  foundation  row. 

On  the  tableau  piles,  you  build 
downward  in  alternate  colors.  The 
top  cards  can  be  played  only  on 
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This  fall's  hot  new  program 

stars  4  sex^Europeans  and 

1  American  stud. 

'  This  fall's  sizzling  new  prof^ram  doesn't  feaUn-e  an  Alexis, 
a  Kn'sl  1(>,  or  even  a  Maffnuni.  but  i(  will  have  some  pn^tty 
racy  scenes.  ♦  Meet  the  exotic  ears  oi'lbst  Drive.  Ae<'ola(le's 
incredible  driving  simulation.  Tliei-e  are  the  legendaiy 
greats  I'roni  Europe:  Ferrari  Ibstarossa,  Lotus  'hu-bo  Esprit, 
Porsche  911  lYu-bo  and  the  inconiparal)Ie  Lamboi'ghini 
Countacli.  And  to  make  'Ibsl  Drive  a  truly  international 
event,  there's  1  lie  classic .Vjnerlean  star— the  Chevrolet 
Coi"vette.*  ll'si  I  )ri\  e  allows  you  to  experience  lirsthand  the  awesome  dri\ing  eharaeter- 
istic;s  ol'each  renowned  perlbrmer.They  accelerate  like  the  real  thing.  They  handle  like  the 
real  thing. They  brake  like  the  real  thing.  In  fact,  the  animation  and  graphics  of  Tt'St  Di'ive 
are  so  realistic,  you'll  sw<'ai"  the  G-Foi"cc  has  you  pinned  to  your  seat.*  A(;colade's  Tist  Drive. 
It's  one  program  that  will  definitely  burn  u})  the  scn;en.*  Accolade.    \  g-g~g-^i     \  r^P"™ 
20813  Stevens  Creek  Boulevard, Cupertino,  CA  95014. 408-446-5757.  /~V\JL_\_/Ly~\L/lI" 
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"Canfield,"  ait  intriguing  solitaire  card 
game  for  Ihe  64. 


foundations.  To  build  on  another 
tableau  pile,  you  must  move  an  en- 
tire pile  as  a  unit.  If  any  pile  is 
moved  away  leaving  a  space,  the 
top  card  of  the  stock  must  be  used  to 
fill  the  space.  Here  again,  your  com- 
puter will  help  by  moving  the  card 
automatically  until  the  stock  is  ex- 
hausted. Once  the  stock  is  exhaust- 
ed, spaces  can  be  filled  from  the 
talon,  but  at  this  time,  a  space  may 
be  kept  open  as  long  as  you  want. 
In  this  version  of  Canfield, 
your  computer  will  shuffle  the  deck 
and  deal  the  layout.  You  move 
cards  to  and  from  screen  locations 
by  pressing  these  keys: 


Ivlove  a  card 
Move  a  card 
Move  a  card 
Turn  over  thi 
Move  a  card 
Move  a  card 
Move  a  card 
Move  a  card 


from  the  stock, 
from  ttie  talon, 
to  its  foundation, 
e  pack  of  cards, 
to  or  from  tableau  1. 
to  or  from  tableau  2. 
to  or  from  tableau  3. 
to  or  from  tableau  4. 


Computer  Canfield 

All  versions  provide  a  way  for  you 
to  keep  your  money  across  games. 
To  accomplish  this,  Canfield  checks 
a  data  file  on  disk  to  see  how  much 
money  you  had  when  you  last  quit 
the  game.  When  you're  asked  for 
your  name,  that  name  will  be  used 
as  a  filename  to  store  your  account 
on  disk.  If  it's  your  first  game,  or  if 
you  drop  to  zero  dollars,  you'll  start 
with  500  dollars.  Remember  that  it 
costs  50  dollars  to  buy  a  deck  of 
cards  to  play  the  game. 

Commodore  64  Version 

Press  fl  to  quit,  or  i7  to  start  a  new 
game  with  a  new  deck.  Program  1  is 
written  in  BASIC.  Type  it  in  and 
save  a  copy  to  disk  before  running  it. 

Atari  Eight-Bit  Version 

In  the  Atari  version  (Program  2),  the 
four  suits  are  all  the  same  color,  so 
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The  Atari  400/800/XL/XE  version  of 
"Canfield." 


you'll  have  to  remember  that  hearts 
and  diamonds  are  red,  and  clubs 
and  spades  are  black.  Press  Escape 
to  quit,  and  Q  to  start  a  new  game 
with  a  new  deck.  This  version  of 
Canfield  is  written  in  BASIC.  Type  it 
in  and  save  a  copy  before  playing. 

Appie 

Canfield  for  the  Apple  consists  of 
two  files — one  in  BASIC  and  one  in 
machine  language.  Program  3  is  the 
machine  language  part,  along  with 
the  high-resolution  character  set 
data.  Type  it  in  using  MLX,  the 
machine  language  entry  program 
located  elsewhere  in  this  issue. 
When  you're  prompted  for  starting 
and  ending  addresses,  respond 
with  the  following  values: 

STARTING  ADDRESS?         8000 
ENDING  ADDRESS?  86 A7 

When  you've  finished  typing,  be 
sure  to  save  the  program  with  the 
name  CANFIELD.ML,  since  that's 
the  name  Program  4  looks  for. 

Program  4  is  the  BASIC  part  of 
Canfield.  Type  it  in  and  save  it  to 
disk.  When  this  program  is  run,  it 
loads  Program  3  automatically. 

The  keyboard  commands  for 
this  version  of  the  game  are  the 
same  as  the  original.  Press  CTRL-E 
to  quit.  Press  <RET>  to  start  a  new 
game  with  a  new  deck. 

IBM  PC/PCjr 

This  version  of  Canfield  (Program 

5)  is  written  in  BASIC.  Type  it  in 
and  save  a  copy  before  playing. 
Press  Fl  to  quit.  Press  FIO  to  start  a 
new  game  with  a  new  deck. 

Amiga  Version 

This  version  of  Canfield  (Program 

6)  is  written  in  Amiga  Basic.  Type  it 
in  and  save  a  copy  before  playing  it. 
Press  Fl  to  quit.  Press  FIO  to  start  a 
new  game  with  a  new  deck. 


The  Apple  II  version  of  "Canfield" 
features  bi-res  playing  cards. 


"Canfield"  for  the  IBM  PC/PCjr  and 
compatibles. 


The  Amiga  version  of  "Canfield.' 


For  instructions  on  entering  these  programs, 
please  refer  to  "COMPUTE! 's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

Program  1 :  Commodore  64 
Canfield 

SF  4  REM  COPYRIGHT  1988  COMPUT 

El  PUBLICATIONS,  INC. 

[2  SPACES) ALL  RIGHTS  RESE 

RVED 
JA  5  PRINT"[CLR3 [2  SPACES)C0PY 

RIGHT  1988  COMPUTE!  PUBLI 

CATIONS" 
HB  6  PRINTTAB(11)"ALL  RIGHTS  R 

ESERVED" 
SG  8  FOR  1=1  TO  456: READ  AsCK* 

CK+A: NEXT: RESTORE: REM  CHE 

CK  DATA 
CF  9  IF  CKO40791  TJHEN  PRINT"E 

RROR  IN  DATA": STOP 
HQ  10  PRINTCHR?(142) :PRINTCHR? 
(147)!POKE53280,6:POKE53 
281,6 


HIGH-SPEED 


ANIMATION  AND 
SIMULATION  FOR 
MICROCOMPUTERS 


®         ».^ 


2SS9    $29.95 
Counts  »s  2 


TRUE  BASIC      i  -  Long  i^S 


SELECT  5  BOOKS         ^ 

for  only  $3.«^!^;# 


(values  to  $126.80) 


[   ■    COMPVTHL 

USERS  GUIDE  ie 

ELECTR(»flCS 


18991*    S15J5 


d>SSONAL= 
HANOeOCHfe 


]M«>  tte.is 


practical 
Bulde  to  the 


:(9e   S21.95 


2623     S2V95 


C0Ml«'DD2Rt  :- 


SERIOUS 

PROOR^WMINGIN 

BASIC 


2ES0P     S14.95 


Btrmsis 

jHmr 

mcrtcc 


2B0Q 

S2a.9S 

Count*  ««  2 

R! 

IM 

i 

1 

2757P    516.95 


2730    S27,9S 
Count*  Ht  2 


2700     S49.95 
Counts  as  3 


When  it's  new  and  important  in  business  or  personal  computing, 

The  Computer  Book  Qub  has  the  infonnation  you  need  .  .  , 

at  savings  of  up  to  50%  off  publishers'  prices! 


2691     S23.9!f 


^Computer: 
^Career 
"^  Guide 


2(50    S3S.9S 


M 


/ 


1S73P     SI7.9S 


tZJ^ 


1B72    $17.05 


27SEP    S12.95  V92IP     S1S.9S 

pf^OSftWWINQ  MTU 


tKKlMKNT 
VOI.H 


17«9P     SU.95 


R 

base  5000 


2«6G    $20.95 
Counts  »3.  2 


AJI  books  are  hordcover  edilions  unless  rumtwrs  aie 
lollowed  by  a  "P"  for  paperback. 


(PuWishers"  PricBS  SllOwrV) 


IT2JP     S1J.50 


TTifi  ScupL^ar  Emh  Hlny 


TURBO  PASCAL 
PflOGRAMMING 

JO  CUSTOMIZED 

MICROPROCESSiH 

PRDIECIS 

r  -j:  i 

-  (       ,  TJ-.r. 

282rP    SIT.95 


Membership  Benefits  •  Slg  Savings,  in  addition  to  ttiis  introductory 
offer,  you  l<eep  saving  substanliaily  witfi  members'  prices  of  up  to  50%  off  ttie 
publisfiers'  prices.  •  Bonus  Books.  Starting  immediateiy,  you  will  be  eligiWe  for 
our  Bonus  Book  Plan,  witfi  savings  of  up  to  80%  off  publisfiers'  prices.  •  Ctub 
News  Builetlns.  14  times  per  year  you  will  receive  the  Book  Club  News,  describ- 
ing ail  the  currant  selections — mains,  alternates,  extfas— plus  bonus  offers  and 
special  sales,  with  hundreds  of  titles  to  choose  from.  •  Automatic  Order.  If  you 
want  the  Main  Selection,  do  nothing  and  it  will  be  sent  to  you  automatically.  If 
you  prefer  another  selection,  or  no  book  at  all,  simply  indicate  your  choice  on  the 
reply  form  provided,  As  a  member,  you  agree  lo  purchase  at  least  3  boohs  wilfiln 
the  next  12  monlhs  and  may  resign  at  any  time  thereafter.  •  Ironclad  No-Risk 
Guarantee,  If  not  satisfied  with  your  books,  return  them  within  1 0  days  without 
obligation!  •  Exceptional  Ouatity,  All  books  are  quality  publishers'  editions 
especially  selected  by  our  Editorial  Board.  cMPT-isa 


Fllll 

Kxun-rivivs 


a671P     S12.95  t79S     519.95 


106!P     510.75 


II  card  is  missing,  use  this  address  10  join:  THE  COMPUTER  BOOK  CLUB' 
Blue  RMge  Summit,  PA  17294-0820 


SH  20  GOSUB2300:POKE56,132:CLR 

: SD=542  72 : GOSUB2420 
GR  30  GOSUB1860 

BF  40  Q=FRE(0) :POKE34639,32:PO 
KE34679, 32 :IFFC<>S2THEN1 
60 
CX  50  FORI=lTO1000:NEXTiN$=MID 
5(STR5(BR),2):PR1NT" 
[CLR}" 
JR  60  POKE53280,6:POKE53281,6: 

POKE646,l 
EH  70  P0KE214,9:PRINT:PRINTTAB 
{ 12 ) " CONGRATULATIONS l" : P 
OKE53280,1 
QS  80  POKE214,  ll:PRINT:PRItlTTA 
B(7)"Y0U  HAVE  BEATEN  THE 

ODDS  I 1":POKE53280,6 
FD  90  GOSUB2870:GOSUB2930 
QH  100  POKE214, 13iPRINT:PRINTT 

AB ( 3 ) "YOU  HAVE  A  TOTAL 

1  SPACE] BANKROLL  OF  $";N 

5:POKE53230,1 
FB  110  POKE214, 22  s  PRINT :PRINTT 

AB( 16) "CONTINUE  PLAYING 

7    (Y/N)"!POKE53280,6 
QQ  120  POKE53280,l!GETA5 
SQ  130  IFA$="Y"THENGOSUB2550:G 

OTO30 
QR  140  POKE53280,6:IFA$<>"N"TH 

EN120 
SO  150  GOTO320 
EB  160  IPSC=0THEN180 
KA  170  R=FNR(S(1)) :IFR=FFTHENN 

=F(0)+1:F(0)=N:GOSUB750 

: GOTO40 
PO  180  IFTC=0THEN200 
GH  190  R=FNR(P(TC) ) :IPR=FFTHEN 

N=F(0)+l!F(0)=N!GOTO107 

0 
PE  200  E=0':FORI=4TO1STEP-1:IFT 

(1,0 )=0THENE=I 
PS  210  NEXT 
EA  220  IFE=0THEN280 
HM  230  IFSC=0THEN280 
AB  240  T(E,l)=S(l):T(E,0)=liSC 

=SC-1 
XX  250  FORI=1TO  SC:S(I)=S(I+1) 

:NEXT;S(SC+1)=-1 
BS  260  K=S(1) !L=LS:GOSUB1650 
CJ  270  K=T(E,1):L=LT+4*E:G0SUB 

2830 : GOSUB1650 : GOTO40 
FJ  280  POKE198,0 
SE  290  GETAS:IFA?=""THEN290 
XS  300  ON  C%(ASC(A?))  GOTO  127 

5,305,920,470, 310,600,3 

0 
PD  305  GOSUB  2850SGOTO40 
AQ  310  N?»HIDS(STR?(BR),2) iIFB 

R<50THENBR=0 
AQ  320  PRINT" [CLR) "!POKE532e0, 

6:POKE53281,6:POKE646,1 

tPOKE53272,21 
DB  330  PQKE214, 9s  PRINTS PRINTTA 

B(7) "THANKS  FOR  PLAYING 

,  ";NM$ 

QH  340  P0KE214, 11 ! PRINTS PRINTT 
AB(3)"Y0U  HAVE  A  TOTAL 
{SPACE} BANKROLL  OF  ?"?N 

HH  347  OPEN15,8,155PRINT#15, "S 

s"F15:CLOSE15 
AX  350  0PEN8,8,8,F5+"W":PRINT# 

SjBRsCLOSEB 
ME  360  POKE214, 13  SPRINT sPRINTT 

AB(9)"COME  BACK  AGAIN  S 

OON  i  " 
SP  370  FORI=lTO4000:NEXTsSYS64 

738  s  END 
BD  470  IFPC=0THEN40 
RP  480  IFPC=TCTHENGOSUB1810 
HE  490  IFP(TC+1)=-1THENTC=0 
BB  500  IFP(TC+2 )=-lTHENTC=TC+l 

SGOTO530 
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SC    510    IFP(TC+3)=-lTHENTC=TC+2 

SGOTO530 
QC    520   TC=TC+3 
JH    530    POKE34604, 325lF(PC-TC)= 

0THENPOKE34605 , 32  s  G0T05 

50 
FD    540    N$=MID$(STRS(PC-TC) , 2): 

LL=LEN(N$) sP0KE214,19!P 

RINT  t PRINTTAB ( 14-LL) N? 
GS  550  POKE34609,32 
DR  560  N$=MID?(STRS(TC),2)!LL= 

LEN(N5) sPOKE214,19:PRIN 

T : PRINTTAB ( 1 9-LL ) N? 
QX  570  IFP{TC+1 )=-lTHENK=-l:L= 

LP:GOSUB1650 
SF  580  K=P(TC)  :L=r,N3GOSUB2830s 

GOSUB1650:GOTO40 
AK  590  GOTO40 
AH  600  POKE214, 20  s  PRINT SP0KE64 

6,6: PRINTTAB ( 7 ) A?  s  P0KE6 

46 , 1 2  s IFSC=0THEN40 
XE  610  R=FNR(S(1) ) 
SF  620  GETB5:IFB5=""THEN620 
KK  630  ON  C%(ASC(B?))  GOTO  790 

,  690 , 680 , 680 , 310 , 680 , 30 
RE  680  GOSUB2850SGOTO40 
Se  690  POKE214, 21s  PRINT :P0KE64 

6,6sPRINTTAB(7)B$:POKE6 

46,  12 

IFR=0THENNF=S ( 1 )  +  12  s  GOT 

O720 

NF=S(1)-1 

K=0 

N=N+1 :IFN=5THKNGOSUB285 

0:GOTO40 

IFF(N)<>NFTIIUN730 


QJ  700 

FB  710 
DJ  720 
CE  730 

JC  740 

XR  750  F(N)=S(1) :PC=PC+1:SC=SC 

-lsBR=BR+5 
MM  760  FORJ=lTOSCsS(J)=S(J+l): 

NEXT:S(SC+1)=-1 
BQ  770  K=S(1) :L=LS:GOSUB1650sG 

OSUB2830 
CG  780  K=F(N) 3L=LF+4*N:GOSUB16 

50  s  GOSUBl 830 : GOTO40 
OS  790  I=VAL(B5) :POK£214,21sPR 

INT SPOKE646, 6s PRINTTAB ( 

7)B$:POKE646,12 
CM  800  IFT(I,0)=0THENJ=0  5GOTO8 

80 
XG  810  IFR=12THENNl=S(l)+lsG0T 

0830 
KJ  820  N1=S{1)+14 
HP  830  IFNl>51THENNl=Nl-52 
RM  840  N2=N1+26:IFN2>51THENN2= 

N2-52 
PH  850  J=T(I,0) 
SC  860  IFT(I, J)=N1THEN880 
PR  870  IFT(l,J)<>N2THENGOSUB28 

50  s  GOTO 40 
QC  830  J=J+1:T(I,J)=S(1) 5T(I,0 

)=T(I,0J+1:SC=SC-1 
GH  890  F0RN=1T0SC:S(N)=S(N+1) s 

NEXTsS(SC+l)=-l 
PF  900  K=S(1) :L=LS5GOSUB1650sG 

OSUB2830 
RG  910  K=T(I, J):L=FNL(X)sGOSUB 

1650SGOTO40 
AE  920  GOSUB2810!POKE214,20sPR 

INT  s  POKE646 , 6  s  PRINTTAB ( 

7 )A$ : P0KE646, 12 s IFTC=0T 

KEN40 
DQ  930  R=PNR(P(TC)) 
RJ  940  GETB5:IFB5=""THEN940 
FR  950  ON  Ci(ASCCB$))  GOTO  113 

0,1010,1000,1000,310, 10 

00,30 
JM  1000  GOSUB2850tGOTO40 
FQ  1010  POKE214, 21s  PRINTS P0KE6 
46 , 6 : PRINTTAB ( 7 ) B?  s  POK 
E646,12 
FF  1020  IFR=0THENNF=P(TC)+12sG 
OTO1040 


CM  1030  NF=P(TC)-1 

PE  1040  N=0 

CF  1050  N=N+lsIFN=5THENG0SU828 

S0:GOTO40 
JA  1060  IFF(N)<>NFTHEN1050 
EM  1070  F(N)=P(TC) sFC=FC+lsPC= 

PC-1 5TC=TC-1 
KK  1080  F0RI=(TC+1 )TOPC:P(I)=P 

{I+1)5NEXT:P(PC+1 )=-l 
DP  1090  IFTC=0THENGOSUB1820:GO 

TO 11 20 
MH  1100  K=P(TC)3L=LN:GOSUB1650 

:POKE34609,32 
JC  1110  N$=MID5(STR$(TC) , 2):LL 

=LEN(N$):POKE214, 19! PR 

INT  s  PRINTTAB ( 1 9-LL )N$ 
GA  1120  GOSUB2830:K=F(N)sL=LF+ 

4*N!GOSUB16  50sBR=BR+5! 

GOSUB1830:GOTO40 
EC  1130  I=VAL(B?):P0KE214, 21:P 

RINT: POKE 646, 6  s  PRINTTA 

BC7)B5sPOKE646,12 
QS  1140  IFT(I,0)=0THENJ=0:GOTO 

1220 
HX  1150  IFR=12THENNl=P(TC)+lsG 

OTO1170 
EM  1160  N1=P(TC)+14 
AB  1170  IFNl>51THENNl=Nl-52 
RC  1180  N2=Nl+26sIFN2>51THENN2 

=N2-52 
AE  1190  J=T(I,0) 
BE  1200  IFT(I, J)=N1THEN1220 
KG  1210  IFT(I, J)<>N2THENGOSUB2 

850  3GOTO40 
GJ  1220  J=J+l5T(I,J)=P(TC):T(I 

, 0  )-T ( 1 , 0 ) +1 : PC=PC-1 s  T 

C=TC-1 
KE  1230  FORN={TC+l)TOPCsP(N)=P 

(N+1 )sNEXT:P(PC+l )=-l 
GX  1240  IFTC=0THENGOSUB1820:GO 

TO1270 
AR  1250  K=P(TC) :L=LNsGOSUB1650 

t POKE34609,32 
GE  1260  N$=MIDS(STR?(TC),2) sLL 

=LEN(N$ ) s  POKE214, 19sPR 

INT  s  PRINTTAB ( 19-LL ) N$ 
DG  1270  GOSUB2830:K=T(I,J) !L=F 

NL( X ) : GOSUB1650 : GOTO40 
RE  1275  GOSUB  2810s I=VAL(A? ) 
RF  1280  POKE214, 20  SPRINT SP0KE6 

46,65  PRINTTAB ( 7 ) A? ! POK 

E646, 12!lFT(I,0)=0THEN 

40 
JC  1290  GETB?:IFBS=""THEN1290 
ED  1300  ON  C%(ASC(B?))  GOTO  14 

80,  1360,1350,1350, 310, 

1350,30 
KD  1350  GOSUB2850:GOTO40 
KC  1360  POKE214,2l3PRINT!pOKE6 

46,6s  PRINTTAB ( 7 ) B? : POK 

E646 ,12s  J=T (1,0): R=FNR 

(T(I,J)) 
RQ  1370  X=T(I, J):R=FNR(X) 
GK  1380  IFR=0THENNF=T(I, J)+12s 

GOTO 1400 
CX  1390  NF=T(I,J)-1 
SM  1400  N=0 
AX  1410  N=N+l5lFN=5THENGOSUB28 

50SGOTO40 
PS  1420  IFF(N)<>NFTHEN1410 
CM  1430  F(K)=T(I,J) sFC=FC+l sT( 

I,0)=T(I,0)-1 !BR=BR+5 
CE  1440  K=-l5L=FNL(X):GOSOB165 

0SGOSUB2830 
GF  1450  IFT(I,0) <>0THENJ=J-l!K 

=T(I, J) :L=FNL(X) s GOSUB 

1650 
GP  1460  K=F(N)sL=LF+4*N: GOSUBl 

650SGOSUB1830 
CG  1470  GOTO40 

AS  1480  A=VAL(B5) sPOKE214,2l5P 
RINTsPOKE646, 6: PRINTTA 


KJ  1490 

XK  1500 

HS  1510 

MH  1520 

AP  1530 

DC  1540 

QD  1550 

GM  1560 

DE  1570 

RJ  1580 

PC  1590 

PD  1600 

QD  1610 

DS  1620 

AK  1630 

RG  1640 

QM  1650 

EQ  1660 

FS  1670 

HR  1680 

KM  1690 

DP  1700 

KF  1710 

PM  1720 

BS  1730 

MD  1740 

FB  1750 

BB  1760 

PB  1770 

HG  1780 

XK  1790 

EA  1800 

DD  1810 

RB  1820 

BS  1830 

FK  1840 


DE  1850 
BP  1860 
AD  1870 
GJ  1880 


CK  1390 


MS  1900 


QM  1910 


B(7)B$:P0KE646, 12!R=FN 
R(T(I,1)) 

IFR=12THENN1=tCI, 1 )+l: 

GOTO1510 

N1=TCI,1)+14 

IFNl >  5 lTHENNl=Nl-52 

N2=N1+26  :  IFN2  >51THE^fN2 

=N2-52 

B=T ( A, 0) : IFB=0THENGOSU 

B2850:GOTO40 

IFT(A,B)=N1THEN1560 

IFT ( A, B ) <  >N2THEKGOSUB2 

850: GOTO 40 

F0RJ=1T0T (1,0): K=-l ! L= 

FNL(X)iGOSUB 1650: NEXT 

FORJ=1TOT(I,0) :B=T(A,0 

)+J:T(A,B)=T(I, J) 

K=T(A,B)(L=33995+4*A+4 

0*B:GOSUB2830:GOSUB165 

0;NEXT 

T(A, 0)=T(A,0)+T(I,0) sT 

(1,0  )=0:GOTO40 

F0RI=1T04: 

IFT (I , 0 )=0THEN1630 

J=T (1,0): K=T ( I , J ) : L=FN 

L(X):GOSUB1650 

NEXT 

RETURN 

IFKO-1THEN1690 

FORZ=0TO3:POKEL+Z, 32 jN 

EXT 

FORZ=40TO43 : POKEL+Z, 32 

:NEXT 

GOTO1800 

SUIT=INT(K/13) :R=K-(13 

*SUIT) :COL=0 

IFSUIT=1THENC0L=2 

IFSUIT=3THENCOL=2 

POKEL, 38: POKEL+DF,  COL 

POKEL+1 , 64+ ( 2*R) : POKEL 

+1+DF,C0L 

POKEL+2, 91+(2*SUIT);PO 

KEL+2+DF,COL 

POKEL+3, 28: P0KEL+3+DF, 

COL 

POKEL+40 , 27 : POKEL+40+D 

F,COL 

POKEL+41,90+(2*SUIT) :P 

OREL +41+DF, COL 

POKEL+42,65+(2*R):POKE 

L+42+DF,COL 

POKEL+43, 29:POKEL+43+D 

F,COL 

RETURN 

POKE646, 6:POKE214, 20:  P 

RINT:PRINTTAB(11) ;ZS:P 

OKE646, 12:RETURN 

POKE34609, 32: POKE34610 

, 32 ! K=-l :L=LN: GOSUB165 

0: RETURN 

FORA=0TO5: POKE34583+A, 

32:NEXT 

N?=MID$(STR?(BR) , 2 )  :  PO 

KE646,6:POKE214,18:PRI 

NT : PRINTTAB ( 3 1 )N9 : POKE 

646,12 

RETURN 

IFBR>49THEK1960 

N5=MID$(STR5(BR) ,2) 

PRINT " 1 CLR } " : POKE53280 

,2iPOKE53281, 2:POKE646 

,1 

POKE214, 9 : PRINT : PRINTT 

AB(11)"Y0U    HAVE    ONLY    $ 

" ;N$ ; " 1 " sFORI=lTO3000  s 

NEXT 

POKE214, 12: PRINT: PRINT 

TAB(15)"T00  BADlJ"!POR 

I=1TO2000:NEXT 

P0KE214, 22; PRINT: PRINT 

TAB (22) "PLAY   AGAIN?    (Y 

/N)" 


PS    1920   GETA$:IFA$=""THEN1920 
XD    1930    IFAS="Y"THENBR=500:GOS 

UB2550:GOTO1960 
ED    1940    IFA?="N"THENBR=0: POKES 

3272, 21:GOTO320 
DS    1950    GOTO1920 
PX    1960    F(2)=-1:F(3)=-1:F(4)=- 

l:TN=-l!FC=0:TC=0 
BJ    1970    POKE34604,  32:POICE34605 

,32: PQKE34609,32:POKE3 

4610,32 
MJ    1980    K=-1:L=33879:GOSUB1650 

:L=33883:GOSUB1650:L=3 

3887iGOSUB1650 
CB  1990  L=33891:GOSUB1650!L=LS 

.•GOSUB1650 
JR  2000  FORI=1TO4:J=0 
DJ  2010  J=J+l!lFJ=13THEN2040 
BQ  2020  IFT(I,J)=-1THEN2040 
GP  2030  L=FNL(X) :GOSUB 1650: GOT 

O2010 
AA  2040  NEXT 
SX  2050  L=LP:GOSUB1650:L=LN:GO 

SUB1650 
CG  2060  eR=BR-50:GOSUB1830:FOR 

I=1TO17:GOSUB2830:NEXT 

:GOSUB2930 
MM  2070  FORI=52T01STEP-l:C=INT 

(l*RKD(-Tl/37))+l:P(53 

-I  )=D(C)iD(C)=D(l) :NEX 

T 
RD  2080  F0RI=1T052:D(I)=P(I):N 

EXT 
GB  2090  F0RI=1T013:S(I}=P(I):N 

EXT:SC=13 
AB  2100  F(1)=P(14)!F(0)=1:FC=1 

:FF=F(1)-13*INT(P(1)/1 

3)jPC=34 
JD  2110  FORI=1TO4:T(I,0 )=1:T(I 

, 1)=P(14+I ) :F0RJ=2T012 

:T(I, J )=-l: NEXT: NEXT 
KS  2120  F0RI=lT0PC:P(l)=PCl+5  2 

-PC):NEXT:P(PC+1 )=-l 
FJ  2130  K=SCl ):L=LS:GOSUB2830: 

GOSUE1650 
QS  2140  K=F(1):L=33879!G0SUB28 

30: GOSUB1650 : BR=BR+5 : G 

OSUB1830 
EK  2150  F0RI=1T04:K=T(I,1) :L=L 

T+4*I:GOSUB2830:GOSUB1 

650: NEXT 
HC  2160  GOSUBiai0:POKE214, 19:P 

RINT: PRINTTAB (12) "34" 
MR  2170  R=FNR(S(1))  sIFRoFFTHE 

N2220 
DC  2180  N=F{0)+1;F(0)=N!F(S)=S 

(1) :FC=FC+1:SC=SC-1:BR 

=BR+5 
RS  2190  FORJ=lTOSCsS(j)=S(J+l ) 

:KEXT;S(SC+1 )=-l 
QQ  2200  K=S(1)!L=LS:GOSUB1650: 

GOSUB2830 
XD  2210  K=F(N) :L=LF+4*N:GOSUBl 

650tGOSUB183a:GOTO2170 
RQ  2220  1=0 

CA  2230  1=1+1 :IPI=5THEN2290 
FJ  2240  R=FNR(T(I,1) )!IFR<>FFT 

HEN2230 
FK  2250  N=F(0)+1:F{0)=N!F(N)=T 

(1,1) :FC=FC+l:BR=BE+5 
EQ  2260  K=-1:L=LT+4*I:G0SUB165 

0:K=F(N):L=LF+4*N:GOSU 

B2830 : GOSUB1650 : GOSUBl 

830 
AG    2270    T(I,1)=S(1)!T(I,0)=1:S 

C=SC-1:FORJ=1TOSC!S(J) 

=S ( J+1 ) sNEXT : S ( SC+1 )=- 

1 
SF    2280    K=S(1):L=LS:GOSUB1650: 

K=T(I,1 ):L=LT+4*I:G0SU 

B1650:GOTO2170 
EB    2290    RETURN 


QB 

2300 

PG 

2310 

AF 

2320 

DK 

2330 

OQ 

2340 

OX 

2350 

CC 

2360 

EJ 

2370 

EP 

2380 

AP 

2390 

KD 

2400 

JG 

2410 

RQ 

2420 

EH 

2430 

JX 

2432 

DM 

2434 

AR 

2440 

BR 

2450 

JG 

2460 

PR 

2470 

HG 

2475 

JF 

2480 

BE 
XG 


MJ 
AC 


2485 

2490 

2500 
2510 


RE    2520 


KE    2530 


JS 

2540 

DE 

2550 

PG 

2560 

MD 

2570 

BP 

2580 

RH 

2590 

DH    2600 


POKE53280,6:POKE53281, 

0:POKE646,4 

POKE214, 10: PRINT: PRINT 

TAB(12) "INITIALIZING. . 

II 

FORI=0TO999 : POKE33792+ 

1,32: NEXT 

POKE56334, PEEK(563  34)A 

ND2S4:POKEl,  PEEKd  )AND 

251 

FORI=0TO511: POKE 34816+ 

1 , PEEK {53248+1 ) : NEXT 

POKEl , PEEK ( 1 )OR4 : POKE5 

6334,PEEK(56334)ORl 

POKE56578, PEEK(56578)0 

R3 

POKE56576, (PEEK(56576) 

AHD252 )0R1 : PRINT" {CLR] 

■r 

POKE53272, (PEEK{53272) 

AND15)OR16 

POKE648, 132 

POKE53272, (PEEK(53272) 

AND240)OR2 

RETURN 

POKE214,  10: PRINT: PRINT 

TAB  (12) "ALMOST    READY.. 

DIM    D(52),P(52),S(13), 

T(4,12),C%(255) 

C%(ASC(  "F")>>=2:C»(ASC( 

"T") )=3:G*(ASC("P") )=4 

:C%(133)=5:C%(ASC( "S") 

}=5 

C%(136)=7:FORI=49    TO    5 

2:C%(I )=l!MEXT 

FORJ=1T048:READA!FORI= 

0TO7!READB:POKE34816+A 

*8+I , B : NEXT : NEXT : PRINT 

"fCLRj" 

FORI =1T06 : READHl ( I ) , LI 

(I),H2(I),L2(I):NEXT 

POKE198,0:POKE19, 1 : INP 

UT"     (10    DOWN  J  ENTER    PLA 

YER'S    NAME:     ";NM$ 

IFNM5=""THEN2470 

F1$=NM5+" .BANKROLL" 

PRINT" {CLR} " :F?="0: "+N 

M5+ " . BANKROLL , S , " : OPEN 

8,8,8,F5+"R":INPUT#8,B 

R:CL0SE8 

0PEN15,8,15:PRINT#15," 

S:"F15:CL0SE15 

OPENS, 8,8,F5+"W":PRINT 

#8,0: CLOSES 

IFBR<50THENBR=500 

F0RI=1T052 : D( I )=1-1 :NE 

XT 

DF=>21  504 :  LF=33875  :  LS=3 

3953 ! LT=3403  5 : LN=34648 

:LP=34643 

DEF    FN    R{X)=X-13*INT{X 

/13):DEF   FN  L(X)=33995 

+4*1 +40* J 

2?  =  "fi@@£{D0WN} 

[4    LEFT)[@?]" 

POKE53  280,13:POKE53  281 

,13: POKE 646, 12 

PRINT" {CLR} " fTAB (11 ) "O 

UNDATION" : POKE33802, 62 

:POKE33802+DF,  2 

POKE214, 2: PRINT:PRINTT 

AB(  25  )  "& £ 

PRINTTAB{25) "*  Fl  QUIT 

{4  SPACES )+ 

PRINTTAB (8) "*1 

{2  SPACES}#2{2  SPACES) 

#3 {2  SPACES} #4 

{3  SPACES]*  F7  CONCEDE 

+ 
PRINTTAB(25 )"[,,,,,,,, 

f  r  I  I  J 
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HR  2610  POKE34032,60!POKE34032 
+DF, 2:POKE214, 5:PRINT: 
PRINTTAB{1 )"TOCK 

CS    2620    POKE646,2: POKE214,a:PR 

INT:PRINTTAB{25) "& 

£ 

EK    2638    POKE646, 1:PRINTTAB(26) 

"& £ 

FB    2640    PRINTTAB(26)  "'* 

{1.0    SPACES  1  + 
CB    2650    PRINTTAB(  26  )'■[,,  ,,,,,, 

,.] 
CX    2660    POKE646, 2:PRINTTAB(25) 

Lt/t/iiiirrttJ 
SD    2670    P0KE646, 6:POKE214, 10sP 

RINT:PRINTTAB{2e)"CANF 

lELD" :POKE646, 12 
JJ    2680    POKE214, 15:PRINT: PRINT 

TAB  (  26  )  '■& £ 

PG  2690  PRINTTAB(26) "*  BANKROL 

L  + 
PC  2700  PRINTTABC26) "* 

{10  SPACES}+ 
QJ  2710  PRINTTAB(26)"* 

{3  SPACES) ${6  SPACES !+ 

JB  2720  GosuBiaae 

GM  2730  PRINTTAB(26 )"[,,,,,,,  , 

,,] 
RM  2740  P0KE214, 19j PRINT: PRINT 

TAa(0)"S< £ 

AD    2750    PRINTTAB(0) "*    FROM: 

{2    SPACES  1  + 
SB    2760    PRINTTAB(0) "* 

{3    SPACESlTO: 

[2    SPACESJ+ 
GE    2770    PRINTTAB{0 )"[,,,,,,,, ] 

MC  2780  POKE3472  3, 59iPOKE34723 
+DF , 2 : PRINTTAB (12)" ACK 

HK    2790    POKE34728,61:POKE34728 

+DF, 2: PRINTTAB ( 17 )"ALO 

N 
GS    2800    RETURN 
CR    2810    POKESD+4,0!POKESD+5,0: 

POKESD, 50 : POKESD+1 ,  55 1 

POKESD+24, 15:POKESD+4, 

33 
RA    2820    RETURN 
CE    2830    POKESD+4,0:POKESD+5,  17 

:  POKESD,  "50 :  POKESD+1 ,  58 

: POKESD+24, 15:POKESD+4 

,129 
PC    2840    RETURN 
MJ   2850    POKESD+4,0:POKESD+5, 55 

: POKESD, 50 ! POKESD+1, 5 : 

POKESD+24, 15:POKESD+4, 

33 
BF    2860    RETURN 
GX    2870    GOSUB293a:POKESD+5,85: 

POKESD+6 , 85 ; POKESD+1 2 , 

85: POKESD+1 3, 85 
BS    2880    POKESD+24, 15: POKESD+4, 

33 : POKESD+ll, : 7 
MK    2890    F0RI=1TQ6: POKESD+1, HI ( 

I) : POKESD, LI (I ): POKESD 

+8,H2(I):POKESD+7,L2{I 

) 
BR    2900    IFH1(I)=50THENFORT=1TO 

200;NEXT 
EX    2910    FORT=1TO100:NEXT:NEXT 
EH    2920    POKESD+4, 32: POKESD+11, 

16 : FORW=1TOS00 : NEXT : RE 

TURN 
EA    2930    FORCL=SDTOSD+24:POKECL 

,0:NEXT: RETURN 
RB    2940    DATA0, 219,102,  60,219,2 

19,60,102, 219,27,3, 3,3 

,3,3,3,3,1 
EH    2950    DATA28,128,192,192,192 

,192,  192, 192, 192, 29, 19 

2,192,192,192,192,192, 

192,128 


CR 

CR 


2960 

2970 


DATA38,1, 3,3,3,3,3,3,3 

,42,  3,  3,  3,  3,  3,  3,  3,  3 

DATA43, 192, 192, 192, 192 

,192,192,192,192,44,0, 

0,0,0,0,0,0, 255 

DATA45,25  5,0,0, 0,0,0,0 

,0,59,131, 153,153,131, 

159,159,159,255 

DATA60, 195, 153,159, 195 

,249,153,195,255,61,12 

9,  231, 231, 231, 231, 231, 

231,255 

DATA62, 129, 159,159,135 

,159,159,159,255,64,25 

5,0,24,60, 102,126, 102, 

102 

DATA65,0, 24, 60,102, 126 

,102,102,255,66,255,0, 

60, 102, 12,48,96, 126 

DATA67,0,60,102,12,48, 

96, 126,255,68, 255,0,60 

,102,12,6,102,60 

DATA69,0,60, 102, 12,6,1 

02,60, 255, 70,255,0,6,3 

0, 102,127,6,6 

DATA71,0,12,60,204,254 

,12, 12,255, 72,255,0, 12 

6,96,124,6,102,60 

DATA73,0, 126,96, 124,6, 

102,60,25  5, 74,255,0,60 

,  96, 124, 102, 102,60 

DATA75, 0, 60, 96, 124, 102 

,102,60, 255,76,255,0, 1 

24,12,24,48,48,48 

DATA77,0,62,6, 12, 24,  24 

,24,255,78,255,0,60,10 

2,60, 102, 102,60 

DATA79,0,60,102,60, 102 

,102,60,255,80,255,0,6 

0,102,62,12,24,48 

DATA81,0,60, 102,62, 12, 

24,48,255,82,255,0,126 

, 24, 24,24,24,0 

DATA83,0,126,24,24,24, 

24,0, 255,84, 255,0, 30,1 

2,12,108,56,0 

DATA85, 0, 30, 12, 12, 108, 

56,0,25  5,86,25  5,0,60,1 

02, 102,60, 14,0 

DATA87, 0, 60, 102, 102, 60 

,14, 0,255,88,255,0, 102 

,108,120,108, 102,0 

DATA89,0, 102, 108, 120, 1 

08,102,0,255,90,8,28,6 

2, 127,127, 28,62, 255 

DATA91,25  5,16,56,124,2 

54, 254, 56, 124,92,0,54, 

127,127,62,28,8,255 

DATA93, 255,0,  108, 254, 2 

54, 124,56,16,94,0,24,2 

4, 126, 126,24,60,255 

DATA95,255,0,2  4,24,126 

, 126, 24,60, 96, 8,28,62, 

127,62,28,8,255 

DATA97, 255, 16, 56, 124, 2 

54,124, 56,16,160,0,0,0 

,0,0,0,0,255 

DATA25, 30, 18,209, 33,13 

5,  25,  30, 42, 62, 31,165 

DATA50,60,37,162,42,62 

,31,165, 50,60,37, 162 

Program  2:  Atari 
400/800/XL/XE  Canfield 

Version  by  Bill  Chin,  Editorial 
Programmer 

CH100  REM  CDPVRIBHT  1788  CO 

MPUTE!  PUB 
JI110  ?  CHR»  (  125)  ;  "C0PYRI6H 

T  I'JSB  COMPUTE!  PUBL I 

CATIONS" 


PG    2980 


PF    2990 


HP    3000 


GX    3010 


SR    3020 


EF    3030 


AA    3040 


BK    3050 


QJ    3060 


FD    3070 


FQ    3080 


KG    3090 


HF    3100 


GC    3110 


EB    3120 


QX    3130 


RX    3140 


PR    3150 


QK 

3160 

BR 

3170 

JQ 

3180 

HG 

3190 

6B   120 

K.  130 

m  140 

Nf  150 

DB  160 

BK  170 

FS  180 

FB  190 

AH  200 

HD210 

nn  220 

HA  230 

on  240 

01  250 

Nn  260 

nn  270 

GK  2B0 

Pfl  2<?0 

»  300 

OK  310 
SI  320 


flL330 


BF  340 
JN  350 
DP  360 
DC  370 

En  380 


AJ  390 

m  400 


DS410 
on  420 

DL430 

in  440 

B«  450 
U  460 


JP470 
CE  4B0 

ni  490 


POSITION     11,2!?     "ALL 

RIGHTS     RESERVED":FOR 

1=1     TO    500:NEXT     I 

OPEN     #1,4,0, "K: " 

PRINT    CHR*(12S) 

eOSUB    2160 

GDSUB     20B0 

GOSUB     1660:GOSUB     2360 

POSITION     CX.CY:?     "      ": 

POSITION     CX,CY+l!?     " 

":  IF     FC<  >52     THEN     290 

REM     WINNER 

FOR  1=1  TO  1000:NEXT 

IlPRINT  CHR«(125) 

POSITION  10,5iPRINT  " 

CONGRATULATIONS ! " 

POSITION  a,7:PRINT  "Y 

QU  HftVE  BEATEN  THE  OD 

DS  !  !  " 

POSITION  3,9:PRINT  "Y 

OU  HAVE  ft  TOTAL  BANKR 

DLL  OF  »";BR 

POSITION  16,22:PRINT 

"CONTINUE  PLAYING?  (Y 

/N)  " 

6ET  ttl.ft 

IF  A-B9  THEN  160 

IF  A=7B  THEN  440 

GOTO  250 

IF  SC=0  THEN  310 

X°S(l>sBOSUB  2400:IF 

R=FF  THEN  N=F(0)+i!FC 

0)»N:BOSUB  730:GDTO  1 

80 

IF  TC=0  THEN  330 

X  =  P  (TO  I60SUB  2400SIF 

R=FF  THEN  N=F(0)+1:F 
(0)>°N:GOTO  1000 
E»0:FOR  1=4  TO  1  STEP 

-1 ! IF  T (I ,0} -0  THEN 
E=I 

NEXT  I 

IF  E=0  THEN  410 
IF  SC-0  THEN  410 
T  <E,  1)  -"SC  1  >  :  T  (E,  0>  "1: 
SC=SC-1 

FOR  1=1  TO  SC:S(I)=S( 
I+l) iNEXT  IsS (SC+1)=- 
1 

K-S ( 1 ) : LX"SX;LY=SY:Ba 
SUB  1S20 

K=T (E,l):LX-TX+3tE:LY 
=TY:QOSUB  2310iQDSUB 
1520:GQTO  180 
BET  «1,A 

ON  C(ft)  GOTO  1210,430 
, 170, 440,520, 620, 900 
B09UB  2330:GOTO  130 
IF  BR<50  THEN  BR=0 
PRINT  CHR»(125) 
POSITION  7,9:PRINT  "T 
HANKS  FDR  PLAYING,   "5 
NM« 

POSITION  3,11:PRINT  " 
YOU  HAVE  A  TOTAL  BANK 
ROLL  OF  »";BR 
REM  SAVE  BANKROLL  FIL 
E 

POSITION  9,13:PRINT  " 
COME  BACK  AGAIN  SOON! 


AP  500  OPEN  #2,B,0,F«:?  W2;B 

R 
NA510  POKE  752,0:  END 
DO  520  IF  PC-0  THEN  180 
AF  530  IF  PC  =  TC  THEN  GOSUB  1 

610 
1K540  IF  P(TC  +  1)=-1  THEN  TC 

=  0 
FP  550  IF  P(TC  +  2)=-l  THEN  TC 

-TC+1:GDT0  580 
6C  360  IF  P<TC  +  3)=-l  THEN  TC 

=TC+2:GaTa  580 
eF570  TC=TC  +  3 
01  580  GOSUB  2360 
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HI.  590 


Ot  600 


EJ  6  10 
HJ  620 

it  630 

m  64  0 
m  6S0 

PA660 
OL  67  0 
FJ  680 

KD  690 
FC  700 
H  710 

OC  720 
K6  730 

Fft  740 


I J  750 

ee  760 


IH  770 

m  780 

EJ  790 

LJ  800 

EJ  B10 

FS  B20 

GH  B30 

Gl  840 

AM  8S0 

OD  060 

GE  870 

IN  860 

SK  890 

HL  900 

DH  910 

KF  920 

GB  930 

PB  940 

NF  950 

«G  960 

FL  970 
OC980 

PE  990 

PO  1000 

HH  1010 

AH  1020 

IK  1030 

BA  1040 

AD  1050 


LA  1060 


IF  P(TC+1)=-1  THEN  K- 

-1: LXopXiLY-PYsQaSUB 

1520 

K=P (TO :LX=NX:LY=NY:B 

OSUB  2310:GQ5UB  1520: 

QOTQ  180 

GOTO  1B0 

GOSUB  2380: IF  SC=0  TH 

EN  1S0 

X-S ( 1 ) : BOSUB  2400 

BET  #1,B 

DM  C(B)   GOTO  770,670, 

170, 440 

80BUB  2330: BDTO  180 

8DSUB  2390 

IF  R=0  THEN  NF=S(1)+1 

2:QDTD  700 

NF=S(1)-1 

N-0 

N=N+1:1F  N=5  THEN  GDS 

UB  2330:8OTO  180 

IF  F(N)<>NF  THEN  710 

F (N)=S( 1 ) :FC=FC+1 : BC= 

SC-1 : BR=BR+5 

FOR  J=l  TO  SCiS(J)-S( 

J+1):NEXT  J:S(SC+1)=- 

1 

K=S(1) :LX=SX:LY"SY:GD 

SUB  1520:eOSUB  2310 

K  =  F (N)  i  LX  =  FX  +  3»N: LY  =  F 

Y:80SUB  1520:GOSUB  16 

30:ODTD  180 

GOSUB  2390: I=B-4B 

IF  T(I,0)-0  THEN  J-0S 

BOTO  860 

IF  F?=12  THEN  N1=S(1)  + 

1 : BOTO  810 

N1=S( 1 ) +14 

IF  Nl>51  THEN  Nl-Nl-5 

2 

N2=Nl+26: IF  N2>51  THE 

N  N2-N2-52 

J"T( I,0> 

IF  TtI,J)-Nl  THEN  860 

IF  Id,  J)<  >N2  THEN  SO 

SUB  2330: GOTO  180 

J-J  +  1 :T ( I, J) "S  (1  )  :T<I 

,0)-T<I,0)+l: SC»SC-1 

FDR  N=l  TO  SC:S<N)-S( 

N+1):NEXT  Ns3(SC+l)=- 

1 

K=5( 1 ) ! LX"SX : LY=SY:GO 

SUB  1S20:GQ5UB  2310 

K-T  (  I , J)  :QaSUB  1S10:B 

OTO  180 

BOSUB  2380! IF  TC-0  TH 

EN  180 

X-P(TC) iBOSUB  2400 

GET  »1,B:80SUB  2390 

ON  C(B}  GOTO  1060,950 

, 170,440 

GOSUB  2330:GOTO  180 

IF  R-0  THEN  NF=P(TC)+ 

12SB0T0  970 

NF=P (TC5-1 

N'0 

N-N+1:IF  N=S  THEN  BOS 

UB  2330:GOTO  180 

IF  FCNIONF  THEN  980 

F (N)=P (TO ! FC=FC+1 :P 

C»PC-i:TC=TC-l 

FDR  I  =  <TC+n   TO  PC:P 

< I ) =P( I+l ) :NEXT  I:P( 

PC+1 ) --1 

IF  TC-0  THEN  BOSUB  1 

6201  GOTO  1050 

K=P(TC) :LX=NX: LY=NY: 

BOSUB  1520 

BOSUB  2360 

BOSUB  2310iK'>F<N}  :LX 

-FX+3«N;LY-FY: BOSUB 

1S20S  BR-BRi-5:Q0SUB  1 

630: BOTO  180 

I=B-48:GDSUB  2390 


CD  1070  IF  TtI,0)-0  THEN  J-=0 

:GOTO  1150 
PD  10B0  IF  R=12  THEN  N1-P(TC 

)-t-l:GOTO  1100 
EO  1090  N1=P  (TO  +14 
HC1100  IF  Nl>51  THEN  Nl-Nl- 

52 
HP  1110  N2-N1+26:IF  N2>51  TH 

EN  N2-N2-52 
OF  1120  J-T(I,0) 
6K1130  IF  T(I,J)-N1  THEN  11 

50 
DB1140  IF  T(I,J)<>N2  THEN  6 

OSUB  2330: QOTO  180 
6111150  J"J  +  1  :TtI,  J)'-P<TO  :  T 

(I,0)-T(I,0)+1 8  PC-PC 

-1 :TC"TC-1 
JB1160  FOR  N-(TC+1)  TO  PC:P 

(N)=P(N+1 )  : NEXT  N: P  t 

PC+1)=-1 
AK1170  IF  TC-0  THEN  BOSUB  1 

620:GOTO  1Z00 
JAliae  K-P(TC)  :  LX-NX:LY-NY: 

BOSUB  1520 
BG  1  190  GOSUB  2360 
LH  1200  BOSUB  2310:  K  =  T(I,  J)  s 

GOSUB  1510:GOTO  180 
PD  1210  I=A-48:  GOSUB  2380!  IF 

T(I,0>"0  THEN  180 
OP  1220  GET  #l,B:eOSUB  2390 
U  1230  ON  C(B}   GOTO  1370,12 

50, 170,440 
IL  1240  GOSUB  2330:GOTO  180 
En  1250  J-T  (  I  ,0>  :  X  =  T(I,  J)  iGO 

SUB  Z400 
EC  1260  X-T  (I,  J)  iGOSUB  2400 
EJ  1270  IF  H-0     THEN  NF-T  (  I  ,  J 

)+12:6DTD  1290 
FO  1280  NF  =  T(  I,  J>-1 
!H  1290  N  =  0 
ftp  1300  N  =  N+1:IF  N  =  5  THEN  BD 

SUB  2330tBOTO  180 
1)K1310  IF  F(N)<>NF  THEN  130 

0 
JJ  1320  F  (N) -T  (I,  J)  :  FC-FC+li 

T(I,0)-T (I ,0) -1:BR=B 

R+5 
KO  1330  K--I1BDSUB  1510:8080 

B  2310 
FA  1340  IF  T(I,0)<>0  THEN  J  = 

J-1: K-T(I, J) :eOSUB  1 

510 
16  1350  K-F  (N)  :LX-FX+3»N!LY" 

FY:GOSUB  1S20:GOSU6 

1630 
jn  1360  GOTO  180 
£6  1370  fl"B-4as60SUB  2390:X  = 

T(I, 1) :GOSUB  2400 
8H  13B0  IF  R-12  THEN  N1-T(I, 

1)+1:8DT0  1400 
6E  1390  Nl-T(  I,  1)  +  14 
HP  1400  IF  Nl>51  THEN  Nl»Ni- 

52 
1C1410  N2  =  N1+26:IF  N2>51  TH 

EN  N2-N2-52 
111420  B-T(A,0):IF  B-0  THEN 
GOSUB  2330:6OTO  180 
BA  1430  IF  T(fl,B)"Nl  THEN  14 

50 
CJ  1440  IF  T(fl,B)<>N2  THEN  B 

OSUB  2330: QOTO  180 
1(1450  FDR  J-1  TO  T(I,0):K- 

-1:G0SUB  1S10:NEXT  J 
P8  1460  FOR  J=l  TO  T(I,0):B  = 

T<fl, 0)+J:T(fl,B)=T(I, 

J> 
JB  1470  K"T(ft,B)  ;LX  =  TX  +  At3!L 

Y-TY+B-1: BOSUB  1520: 

BOSUB  2310:NEXT  J 
AA  1480  T(A,0)-T(A,0) +T(I,  0) 

IT ( I ,0}-0: GOTO  180 
KA  1490  GOTO  180 
JB  1500  REM  I, J  CALCULATED  S 

HQMCARD 
KB  1510  LX-TX  +  I*3iLV-J  +  TY-l 


HE  1520  IF  KO-1  THEN  1550 
ICH  1530  POSITION  L  X  ,  LY  s  7  " 

"iPOSITION  LX,LY+1:? 

»t  II 

HK  1540     BOTO     1600 

FB  1550     SUIT-INT  (K/13)  !R  =  K-( 

13»SU1T) :COL-0 
IK  1560     IF    SUIT-1     THEN    C0L"2 
1111570     IF     SUIT»=3     THEN     C0L  =  2 
PB1580    POSITION    LX.LY:?    R«  ( 

R+1,R+1> ;S»(SU1T+I,a 

UIT+1) 
£0  1590  POSITION  LX,LY+1:?  S 

*(SUIT+1,SUIT+1)  ;R« ' 

R+1,R+1) 
m   1600  RETURN 
BI  1610  POSITION  PX.PY:?  CHR 

«(160) ;CHR«(160) : POS 

ITION  PX,PY+1:?  CHR» 

(160) ; CHR* (160> : RETU 

RN 
PD  1620  K--1:LX  =  NX:LY"NY!G0S 

UB  1S20SGOTQ  2360 
8C  1630  POSITION  3,ia:PRINT 

"<5  SPACES J" 
6D  1640  POSITION  3,1B:PRINT 

BR 
SK  1650  RETURN 

JH1660  IF  BR>49  THEN  1750 
EF  1670  PRINT  CHR*  (125) 
HL  1680  POSITION  11,9:PRINT 

"YOU  HAVE  ONLY  *";BR 

J  "  !  "I  FOR  I"l  TO  200: 

NEXT  I 
EA1690  POSITION  12,15:PRINT 

"TOO  BAD!  !  " 
11  1700  POSITION  22,22:PRINT 

"PLAY  AGAIN(Y/N)?" 
BC  1710  GET  ttl,  A 
DH  1720  IF  A"a9  THEN  BR-500: 

GOTO  160 
ID  1730  IF  A  =  7a  THEN  BR=0sQO 

TO  450 
m  1740  BOTO  1710 
fF1750  F  (2)--l:  F  (3)=-l  :F  (4) 

--1 :TN=-1 : FC-0!TC=0 
0111760  K=-l!LY-FY:FDR  1  =  1  T 

0  4:LX=FX+I»3!QOSUB 
15205NEXT  I 

OF  1770  FOR  1  =  1  TO  4:J  =  0 

tS  1780  J-J  +  1:  IF  J=13  THEN  1 

810 
AH1790  T  (  I  ,  J)=-l  ;  BDTD  1  B00 
HJ  1800  K°T  (I  ,  J)  ;GOSUB  1510: 

GOTO  1780 
FC  1B10  NEXT  I 
KB  1820  LX  =  PX:LY  =  PY:  GOSUB  15 

20!LXeNX!LY=NY:SOSUB 
1520 
HE  1830  BR==BR-50:GD5UB  1630: 

FDR  I-l  TO  17: NEXT  I 

= BOSUB  2390 
?M1840  FOR  1=52  TO  1  STEP  - 

1  iC-INT(I*RND(l) )+l : 
P  {53-I)-D(C) I D to -DC 
I):NEXT  I 

HHiaS0  FOR  I-l  TO  52lD<l)-P 

(I ) :NEXT  I 
PF  1860  FOR  1  =  1  TO  13:S(I)-P 

(  I )  :NEXT  I:SC=13 
AJ  1870  F(  1  )-P  (14)  :F(0)  =  1  :FC 

-1  :FF»=F  (1)-13*INT(F( 

1  )  /13) sPC-34 
BC  1880  FOR  I-l  TO  4:T(I,0)  = 

1  : T  (1 ,  1  )-P  (  14+1 ) :FOR 
J"Z  TO  12:T  <I, J)=-l 

;NEXT  J:NEXT  I 
BK  1890  FOR  1  =  1  TO  PC:P(I)=P 

(I+a2-PO  :NEXT  I:P(P 

C+1  )--l 
LH1900  K-S  CI  )  ;LX-SX:LV-SY:S 

OSUB  2310:eoSUB  1520 
PC  1910  K-F(l  )  ;LX-FX+3;LY«FY 

: BOSUB  1520: BR-BR+S: 

GOSUB  1630 
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HI  1920  FDR  I-l  TO  4!K-T(I,1 

) : LX-TX+3»I ! LY-TY; 60 

SUB  2310:QDSUB  1320: 

NEXT  I 
BF  1730  QDSUB  1610 
HI  1940  X-S(1>:00SUB  24e0:IF 

ROFF  THEN  1990 
BP  1950  h)  =  F  (0)+l  sF  (0) --N:  F  <N) 

=S ( 1 > I FC=FC+1 : SC=3C- 

1 ! BR=BR+5 
IF  1960  FOR  J  =  l  TO  SC:S(J)=S 

(  J  +  1 )  :NEXT  J:S  (SC+1) 

=  -1 
DO  1970  K'S  (1)  :LX-SX:LY  =  SV:G 

□SUB     1520 
I(ftl9a0    K-F  (N)  iLX  =  FX+3«NsLY- 

FY:QOSUB  1520:QOSUB 

1630:QDTD  1940 
IJ  1990  1=0 
612000  I  =  I  +  lsIF  1=3  THEN  20 

60 
DF2010  X'Td,  1  )  :  OOSUB  2400: 

IF  ROFF  THEN  2000 
!J  2020  N-F(0)+l:  F  <0)-N!F  (N) 

«=T  { 1 ,  1 )  :  FC-FC+1:  BR=B 

R  +  5 
ftF  2030  K  =  -l!LX-TX+3«I;LY  =  TY 

:SOSUB  1320jK=F(N) :L 

X  =  FX+3tN!LY'=FYs  SOSUB 
2310:QOSUB  1520:6OS 

UB  1630 
SF  2040  Ttl  ,  1)=S(1>  :  T(  I  ,  0)  =1 

:SC=-SC-1  :FOR  J  =  l  TQ 

SC:S  (JJ-^S  tJ  +  l)  :  NEXT 

J:S  (SC+l >=-l 
BF  2050  K  =  S(1)  :LX  =  SX:LY»SY:  B 

OSUB  1520! K=T tl , 1 ) :L 

X-TX+3»I :LY=TY: QDSUB 
1520:BQTO  1-940 
Kl  2060  RETURN 
EL  2070  REM  SCREEN  LAYOUT 
PD  20B0  ?  CHR»<125) 
Al  2090  POSITION  TX+3,TY-1:? 

"1   2   3   4  " 
FK2100  POSITION  SX,SY-1:?  " 

STOCK" 
BC2110  POSITION  FX  +  3,FY-1:? 

"FOUNDftTION" 
NJ2120  POSITION  2,17:?  "BAN 

K" 
IIP2130  POSITION  PX-l,PY-2:? 

"PACK  TALON" 
DB2140  POSITION  PX~l,PY  +  3:? 
"Q  TO  REDEAL" rPDSIT 

ION  PX-l,PY+4:?  "ESC 
TO  EXIT" 
Kl  2150  RETURN 
OK2160  DIM  D(52>  ,  P(52)  ,  3(13 

) , T (4, 13) ,C (255) , R» ( 

52) , S« (52) , T* (13) ,NM 

»(13) , F (4) , F« (IS) 
PF2170  FOR  1=49  TO  52:C(I>  = 

IsNEXT     I 
BP21B0    C(ASC("F"  I  )  =2:  C  (ASC  ( 

"Q") ) =3: C(27) =4: C (AS 

C(  "P")  ) =5: C (ASC ( "S" ) 

I  =6 
JE2190     C(ASC("S")  )  =6s  C  (ASC  ( 

■■T")  )=7 
EK  2200     T»  =  "23456789TJQKA"  :F 

OR     1=1     TO     13:T» (1,1) 

=  CHR»  (ASC(TJi(I,  I)  )+l 

28) : NEXT     I 
1162210    R*  (  1  )  =T«!R*  {14>=T*:R 

»  (27)=T»:R» (40) =T* 
PO  2220    S*  (  1  )=CHR«  (2S1)  :  S*(2 

) -CHR* (128) : S» (3) =CH 

R*(144) !S«(4)=CHR*(2 

24) 
HK2230    PRINT     "     ENTER    PLAYER 

' 3    NAME:      " ; s INPUT    NM 

$ 
10  2240  IF  NMJ!=""  THEN  2240 
NF  2250  F*  (  1  )  =  "D:  ":F»  (3)=NM* 

:F* (LEN(F*) +1)=".BAN 


HE  2260 
CE227  0 
J6  22B0 

LN  2290 


KF  2300 
Pfl  23  10 


KK2320 
KP  2330 

OB  2340 


KK  2330 
BP  2360 


(11  2370 
K  2380 


Pfl  2390 


HD  2400 

KK  2410 

UK  2420 
KC  2430 

KK  2440 
BC  2450 

iJ   2460 
ItF  2470 


"  : QDSUB 
INPUT  #2 
IF  BR<50 
FDR  1=1 
-1 : NEXT 
FX-23! FY 
:TX=7: TY 
16!PX=Z7 
sCY-16 
RETURN 
SOUND  2, 
R  T=l  TO 
UND  2,0, 
RETURN 
REM  HONK 
LID  MOVE 
SOUND  2, 

1  =  1  TD 
UND  2,0, 
RETURN 
POSITION 
NT  "tS  S 
TION  PX, 
C-TC; " f 4 
RETURN 
POSITION 

"  " ! POS 
PRINT  CH 


2420 

, BR: CLOSE  #2 
THEN  BR=500 
TO  52:D(I)=I 
I i  POKE  752,  1 
-4:SX=2:SY=6 
=l!NX=33:NY= 
sPY-16!CX=25 


240, 12, 12;FD 

3:NEXT  T:SD 
0,  0 

SOUND,   INVA 

55, 12, 12:FDR 
12:NEXT  I ! SO 
0,  0 

PX, PY-lsPRI 
PACES>":POSI 

PY-1:PRINT  P 
SPACES} "; TC 

CX,CY:PRINT 
ITION  CX.CYi 
R» (A) :RETURN 


POSITION  CX,CY+1:PRI 

NT  "  "sPDSITION  CX,C 

Y+liPRlNT  CHR«(B):RE 

TURN 

REM  SIMULATED  RANK  F 

UNCTION  R- 

R-X-13tINT (X/13) sRET 

URN 

TRAP  2450 

OPEN  #2,4, 0,F* 

RETURN 

TRAP  40000:CLDSE  #2: 

OPEN  #2,8,0, F» 

PRINT  #2i0 

CLOSE  #2!0PEN  #2,4,0 

,F*: RETURN 


Program  3:  Apple  II 
Canfield— ML 

Version  by  Bill  Chin,  Editorial 
Programmer 


8000: 

20 

EC 

80 

B0 

72 

20 

00 

B2 

FD 

6008: 

B0 

6D 

20 

5B 

82 

B0 

68 

AD 

CB 

8010: 

26 

83 

F0 

0F 

A9 

7F 

BD 

2C 

A6 

801Si 

83 

3D 

2D 

33 

A9 

07 

8D 

2E 

CE 

8020: 

83 

D0 

0F 

A9 

2A 

BD 

2C 

S3 

F6 

6028: 

A9 

55 

BD 

2D 

83 

A9 

02 

BD 

2C 

8030: 

ze 

83 

A9 

03 

3D 

lA 

33 

A9 

14 

6038: 

02 

80 

22 

63 

20 

09 

81 

fi9 

EB 

8040: 

18 

BD 

IB 

63 

20 

96 

81 

20 

D2 

B048: 

5C 

81 

EE 

IE 

83 

CE 

IB 

B3 

AB 

8030: 

D0 

F2 

AD 

26 

B3 

F0 

20 

A0 

4F 

B0SS: 

00 

AD 

27 

33 

20 

88 

80 

A0 

A6 

8060: 

04 

AD 

27 

83 

20 

86 

80 

A0 

B0 

8066: 

06 

AD 

26 

33 

20 

BB 

B0 

A0 

9A 

8070: 

0C 

AD 

26 

83 

20 

86 

80 

60 

64 

6076: 

72 

62 

03 

08 

92 

82 

0A 

08 

EE 

8080: 

AA 

82 

01 

01 

AA 

82 

0A 

0F 

2A 

8088: 

0A 

0A 

0A 

6D 

ZB 

83 

B9 

73 

7E 

8090; 

B0 

85 

FC 

C3 

B9 

76 

80 

85 

95 

6096: 

FD 

C8 

AD 

28 

33 

3D 

20 

83 

19 

80  A0: 

B9 

78 

80 

C8 

16 

6D 

29 

83 

65 

60A6: 

C9 

07 

90 

07 

E9 

07 

EE 

20 

3C 

B0B0: 

B3 

B0 

F5 

8D 

21 

83 

B9 

78 

3A 

80B6: 

30 

IS 

6D 

2A 

83 

8D 

IE 

S3 

62 

80C0: 

A9 

01 

8D 

lA 

83 

A9 

07 

BD 

88 

80C6: 

22 

S3 

A9 

06 

BD 

IB 

83 

AC 

FD 

80D0: 

2B 

83 

Bl 

FC 

8D 

2C 

83 

20 

92 

8006: 

09 

81 

20 

98 

81 

20 

5C 

81 

13 

80E0: 

EE 

IE 

83 

EE 

2B 

83 

CE 

IB 

60 

B0Ee: 

83 

D0 

E4 

60 

20 

67 

82 

C9 

EF 

80F0: 

33 

90 

01 

60 

fi2 

00 

BE 

27 

30 

a0Fa: 

B3 

C9 

0E 

90 

07 

E9 

0D 

EE 

El 

8100: 

27 

83 

B0 

F5 

8D 

26 

83 

18 

11 

8106: 

60 

AD 

lA 

83 

BD 

IC 

83 

AB 

AE 

8110: 
8118: 
8120: 
8123: 
6130: 
813B: 
6140: 
614B: 
eiS0: 
8158: 
B160: 
8163: 
6170: 
8178: 
B1B0: 
8188: 
8190: 
8198: 
81A0: 
SlASi 
6tB0: 
81B8: 
BlC0i 
81CB: 
61D0: 
81D8: 
S1E0: 
81E8: 
81F0S 
81F8: 
8200: 
3208: 
8210: 
8218: 
8220: 
8228: 
8230: 
8238: 
8240: 
824B: 
8250! 
8253: 
8260: 
826B: 
8270: 
8278: 
8280: 
3288: 
8290: 
8296: 
S2A0: 
82  AS: 
82B0: 
B2BS: 
8200: 
B2CB: 
82D0: 
B2D8: 
82E0: 
Q2E8: 
82F0: 
B2Fa: 
8300: 
B308: 
8310: 
8318: 
8320: 
3328: 
8330: 
6338: 
B340: 
B34B: 
8350: 
8353: 
8360: 
836S: 
B370: 
8378: 
8380: 
8388: 
8390: 
8398! 
83A0: 
a3AS: 
83B0: 
S3E8: 
33C0: 


A9  00 
IB  6D 
E9  07 
AD  2C 
AC  21 
2C  83 
83  EB 
D0  EB 
09  80 
88  10 
SA  61 

19  2C 
F0  08 
D0  FB 
A0  00 
FE  60 
40  00 
AD  IE 
81  05 

29  03 
IE  33 
69  28 
00  04 

00  04 

01  05 

01  03 

02  06 

02  06 

03  07 

03  07 
A9  00 

20  67 
90  12 
01  60 

04  SD 
83  A9 
83  CD 
83  3B 
90  EF 
83  SD 
6D  20 
83  13 
83  SD 
Bl  00 
A0  60 
0F  7F 
5F  7F 
47  7F 
5F  7F 
7F  7F 
7F  7F 
7F  7F 
7F  7F 
IC  IC 
7C  00 
IC  63 
4F  4F 
IC  63 
IC  63 
73  73 
IC  63 
IC  63 
67  67 
IC  63 
44  13 
IC  IC 
14  03 
13  00 
00  00 
00  00 
DB  7B 
A6  07 

30  04 
IB  13 
E6  IB 
29  03 
A0  00 
49  7F 
00  02 
04  85 


99  2C 
22  83 
EE  IC 
83  09 
83  F0 
BD  2C 


83  AD 
C9  07 


EC 
AC 
2D 


F2  60 
AC  IC 
83  91 
B9  2C 
AC  21 
31  FE 
7F  7E 
01  03 
83  29 
E6  85 
F0  02 
70  04 
6D  20 
08  0C 

08  0C 

09  00 
09  0D 
0A  0E 
0A  0E 
0B  0F 
0B  0F 
SD  20 

82  8D 
F0  01 
A9  24 
21  83 
E0  80 
24  33 
2E  25 
IB  60 
29  83 

83  80 
60  20 
2A  83 
20  05 
7F  7F 
7F  7F 
7F  7F 
7F  7F 
7F  7F 
7F  7F 
7F  7F 
7F  7F 


21 
90 
83  80  23 
7F  80  ID 
15  A2  00 
83  0A  3E 
33  D0  F3 
83  B9  2C 
83  99  2C 
AC  23  83 
83  B8  31 
FE  88  30 
83  91  FE 
83  B9  91 
00  2C  83 
7C  78 
07  0F 
3F  A8  B9 
FF  AD  IE 
A9  80  IB 
10  04  69 
83  85  FE 

14 

14 

13 

15 

16 


70 
IF 


10 
10 
11 
11 
12 


12  16 

13  17 
13  17 
83  80 


El 
5F  07 
77  55 


63 
63 
63 


4F  47 
00  7C 
43  79 
00  IC 


63 
63 
01 
IF 
63 
IC 


01  00 

07  03 

08  28 
00  00 
00  00 
B5  45 
0A  0A 
10  01 
65  06 
A5  28 
05  E6 
Bl  lA 
A4  24 
E6  IB 

09  CA 


IB 
IB 
1"? 
19 
lA 
lA 
IB 
IB 
21 
IF  63  C0 
60  C9  18 
BD  20  S3 
A9  00  80 
24  33  AD 
90  04  ED 
83  4E  24 
21  83  8D 
18  AD  25 
20  83  8D 
67  S2  8D 
C9  C0  60 
A5  Al 
01 
55 
47  47  01 
5F  57  55 
7F  7E  7S 
7E  7A  7A 
7F  7F  7E 
7F  7E  7A 
IC  00 
IF  63 
IF  63  IF 
43  49  4C 
7C  60  IF 
7C  60  IC 
IF  4F  67 
IC  63  IC 
IC  IC  03 
67  67  67 
IF  IF  IF 
IC  IC 
IC  60 

02  7F 

03  13  04 
78  04  00 
00  00  00 
00  00  00 
B6  46  84 
B0  04  10 
E8  E8  0A 
85  lA  90 
85  08  A5 
85  09 
24  32 

08 


IC 
IF 


A2 
30 
E6 
A5  09  18 

D0  E2  AS 


91 


A6  46  A4 
00  00  00 
00  00  00 
00  00  00 
0B  08  08 
14  14  14 
14  14  3E 


47  58  4C 
00  00  00 
00  00  00 
00  00  00 
08  08  00 
00  00  00 
14  3E  14 


83  76 
05  8F 
83  93 
83  FD 
0E  92 

20  9A 
88  6E 
83  E4 
B3  CD 
B9  BA 
FE  FF 
0A  11 
BS  D0 
31  71 
91  9B 
60  02 
3F  F5 
C0  CD 
B3  51 
2C  2C 

23  70 
60  BA 
IC  A3 
IC  AB 
ID  B3 
10  BB 
IE  C3 
IE  CB 
IF  D3 
IF  DB 
83  AS 
01  A9 
90  FA 
A9  CA 
25  74 
IF  F7 

24  BB 
83  46 

21  B6 
83  15 

28  AF 
IE  Bl 
20  3A 
A4  2B 
01  DF 
57  DF 

01  57 
57  53 
78  6C 
7E  76 
7E  A2 
7E  9E 
IC  F0 
7C  B9 
IF  16 
00  EA 
IF  DB 
IC  7E 
73  07 
IC  75 
IF  Bl 
67  BA 
IF  3D 
10  BD 
IC  F9 
85  26 

02  71 
00  10 
00  37 
00  3F 
47  74 
3E  3A 
36  03 
02  B7 

29  99 
08  71 
02  EB 
lA  6F 
69  E9 
45  63 

F0  FO  59 
00  00  9F 
00  00  A7 
00  00  AF 
08  00  aF 
00  00  51 
14  00  4A 


IC 
IC 

IF 
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B3C8: 

08 

3C 

0A 

IC 

28 

IE 

08 

00 

AF 

83D0: 

06 

26 

10 

08 

04 

32 

30 

00 

30 

83D8: 

04 

0A 

0A 

04 

2A 

12 

2C 

00 

D7 

a3E0: 

08 

0e 

08 

00 

00 

00 

00 

00 

EE 

e3E8! 

08 

04 

02 

02 

02 

04 

08 

00 

85 

e3F0: 

08 

10 

20 

20 

20 

10 

08 

00 

57 

83FB: 

0B 

2A 

IC 

08 

IC 

2A 

08 

00 

2C 

8400: 

00 

08 

08 

3E 

08 

08 

00 

00 

50 

S40B: 

00 

00 

00 

00 

08 

08 

04 

00 

79 

8410: 

00 

00 

00 

3E 

00 

00 

00 

00 

FC 

BAIB: 

00 

00 

00 

00 

00 

00 

0B 

00 

31 

B420: 

00 

20 

10 

08 

04 

02 

00 

00 

DB 

8428: 

IC 

22 

32 

2A 

26 

22 

IC 

00 

A2 

8430: 

08 

0C 

08 

0B 

08 

08 

IC 

00 

5A 

8438: 

IC 

22 

20 

18 

04 

02 

3E 

00 

02 

8440; 

3E 

20 

10 

IB 

20 

22 

IC 

00 

B5 

8448: 

10 

18 

14 

12 

3E 

10 

10 

00 

55 

84S0: 

3E 

02 

IE 

20 

20 

22 

IC 

00 

80 

8458: 

38 

04 

02 

IE 

22 

22 

IC 

00 

72 

8460: 

3E 

20 

10 

08 

04 

04 

04 

00 

4B 

8468: 

IC 

22 

22 

IC 

22 

22 

IC 

00 

DF 

8470: 

IC 

22 

22 

3C 

20 

10 

0E 

00 

75 

84781 

00 

00 

08 

00 

08 

00 

00 

00 

C2 

6480: 

00 

00 

08 

00 

08 

08 

04 

00 

F2 

8488: 

10 

08 

04 

02 

04 

08 

10 

00 

9C 

8490: 

00 

00 

3E 

00 

3E 

00 

00 

00 

53 

8498: 

04 

08 

10 

20 

10 

08 

04 

00 

52 

84  A0: 

IC 

22 

10 

08 

08 

00 

08 

00 

13 

e4A8: 

IC 

22 

2A 

3A 

lA 

02 

3C 

00 

82 

84B0: 

08 

14 

22 

22 

3E 

22 

22 

00 

E7 

B4B8t 

IE 

22 

22 

IE 

22 

22 

IE 

00 

55 

84C0: 

IC 

22 

02 

02 

02 

22 

IC 

00 

91 

B4CB1 

IE 

22 

22 

22 

22 

22 

IE 

00 

A5 

84D0: 

3E 

02 

02 

IE 

02 

02 

3E 

00 

30 

84D8: 

3E 

02 

02 

IE 

02 

02 

02 

00 

BF 

84E0: 

3C 

02 

02 

02 

32 

22 

3C 

00 

7B 

84E8: 

22 

22 

22 

3E 

22 

22 

22 

00 

91 

B4F0: 

IC 

08 

08 

08 

08 

08 

IC 

00 

24 

a4FB: 

20 

20 

20 

20 

20 

22 

IC 

00 

El 

8500: 

22 

12 

0A 

06 

0A 

12 

22 

00 

IF 

8508: 

02 

02 

02 

02 

02 

02 

3F 

00 

89 

8510: 

22 

36 

2A 

2A 

22 

22 

22 

00 

7F 

8518) 

22 

22 

26 

2A 

32 

22 

22 

00 

82 

8520: 

IC 

22 

22 

22 

22 

22 

IC 

00 

F9 

8528: 

IE 

22 

22 

IE 

02 

02 

02 

00 

00 

8530: 

IC 

22 

22 

22 

2A 

12 

2C 

00 

2A 

8538  s 

IE 

22 

22 

IE 

0A 

12 

22 

00 

DD 

8540: 

IC 

22 

02 

IC 

20 

22 

IC 

00 

AS 

8548: 

3E 

08 

08 

0B 

0B 

08 

0B 

00 

66 

8550: 

22 

22 

22 

22 

22 

22 

IC 

00 

2D 

8558: 

22 

22 

22 

22 

22 

14 

08 

00 

D4 

8560: 

22 

22 

22 

2A 

2A 

36 

22 

00 

5A 

aS6B: 

22 

22 

14 

08 

14 

22 

22 

00 

7D 

8570: 

22 

22 

14 

08 

08 

08 

08 

00 

88 

8578: 

3E 

20 

10 

08 

04 

02 

3E 

00 

Dl 

8580: 

3E 

06 

06 

06 

06 

06 

3E 

00 

12 

8S8B: 

00 

02 

04 

08 

10 

20 

00 

00 

16 

8590: 

3E 

30 

30 

30 

30 

30 

3E 

00 

SE 

8598: 

00 

00 

08 

14 

22 

00 

00 

00 

F6 

S5A0: 

00 

00 

00 

00 

00 

00 

00 

7F 

2B 

85A8: 

04 

08 

10 

00 

00 

00 

00 

00 

B9 

asB0i 

00 

00 

IC 

20 

3C 

22 

3C 

00 

24 

BSBBi 

02 

02 

IE 

22 

22 

22 

IE 

00 

01 

ascBi 

00 

00 

3C 

02 

02 

02 

3C 

00 

04 

8SCB: 

20 

20 

3C 

22 

22 

22 

3C 

00 

A7 

B5D0I 

00 

00 

IC 

22 

3E 

02 

3C 

00 

F3 

B5D8: 

18 

24 

04 

IE 

04 

04 

04 

00 

93 

BSE0: 

00 

00 

IC 

22 

22 

3C 

20 

IC 

EF 

85E8I 

02 

02 

IE 

22 

22 

22 

22 

00 

39 

B5F0: 

08 

00 

0C 

08 

08 

08 

IC 

00 

9A 

85Fe: 

10 

00 

IB 

10 

10 

10 

12 

0C 

01 

8600: 

02 

02 

22 

12 

0E 

12 

22 

00 

F0 

8608: 

0C 

08 

08 

08 

08 

08 

IC 

00 

37 

8610: 

00 

00 

36 

2A 

2ft 

2A 

22 

00 

C4 

8618: 

00 

00 

IE 

22 

22 

22 

22 

00 

ES 

8620: 

00 

00 

IC 

22 

22 

22 

IC 

00 

A4 

8628: 

00 

00 

IE 

22 

22 

IE 

02 

02 

AA 

8630: 

00 

00 

3C 

22 

22 

3C 

20 

20 

49 

8638: 

00 

00 

3A 

06 

02 

02 

02 

00 

09 

8640: 

00 

00 

3C 

02 

IC 

20 

IE 

00 

92 

8648: 

04 

04 

IE 

04 

04 

24 

IS 

00 

3D 

8650: 

00 

00 

22 

22 

22 

32 

2C 

00 

F5 

8658: 

00 

00 

22 

22 

22 

14 

08 

00 

3D 

8660: 

00 

00 

22 

22 

2A 

2A 

36 

00 

3A 

8668: 

00 

00 

22 

14 

08 

14 

22 

00 

CF 

8670: 

00 

00 

22 

22 

22 

3C 

20 

IC 

42 

8678: 

00 

00 

3E 

10 

08 

04 

3E 

00 

IB 

8680:  38  0C  0C  06  0C  0C  38  00  8F 

8688:  08  08  08  08  08  08  08  08  95 

8690:  0E  18  IB  30  18  18  0E  00  ED 

8698:  2C  lA  00  00  00  00  00  00  42 

86A0:  00  2A  14  2A  14  2A  00  00  A6 

Program  4:  Apple  II 
Canfield— BASIC 

Version  by  Bill  Chin,  Editorial 
'rammer 


Progr 


ft5  10  REM  CDPYRIGHT  19BS  COMPUTE 
!  PUBLICATIONS,  INC.  ALL  R 
IBHTS  RESERVED 
a   20  TEXT  :  HOME  :  PRINT  "COPYR 
IBHT  1983  COMPUTE!  PUBLICfi 
TIDNS":  HTAB  9:  PRINT  "ALL 
RIGHTS  RESERVED" 
68  30  VTAB  8:  HTAB  8:  PRINT  "SPA 
CE  BAR  TO  CONTINUE":  VTAB 
16 
?B  32  K  =  PEEK  (49152)  :  IF  K  <  > 
160  THEN  K  =  RND  (1):  BOT 
0  32 
9D  34  BOTO  2520 
BF  40  POKE  40196,  189:  POKE  40197 

,  158 
C8  70  PRINT  CHR»  (4)  ;  "BLOAD  CANF 

IELD.ML,A«8000" 
9fl  S0  POKE  6,168:  POKE  7,131 
II  90  IF  PEEK  (48896)  =  76  THEN 
PRINT  CHRS  (4)"PR#AS8340": 
GOTO  110 
fit  100  POKE  54,64:  POKE  55,131: 

CALL  1002 
C8  110  GOSUB  2400 
V    120  BQSUB  1950 

*6  130  A»  =  ■•  ":  BOSUB  1725:  Q  = 
FRE  (0) :  IF  FC  <  >  52  THE 
N  250 
91  135  REM  WINNER 
F3  140  FOR  I  =  1  TO  1000;  NEXT 
41  160  VTAB  9:  HTAB  12:  PRINT  "C 

ONBRATULATIONS!" 
S7  170  HTAB  7:  PRINT  "YOU  HAVE  B 

EATEN  THE  ODDS ! ! " 
«  190  VTAB  12;  HTAB  3:  PRINT  "Y 
DU  HAVE  A  TOTAL  BANKROLL 
OF  «";BR 
Bfl  200  VTAB  22:  HTAB  2:  PRINT  "C 

DNTINUE  PLAYINB7  (Y/N> " 
Dl  210  BET  A* 
61  215  IF  A»  =  "y"  THEN  BOSUB  26 

40:  GOTO  120 
IF  220  IF  A*  =  "Y"  THEN  GOSUB  26 
40:  GOTO  120 

15  225  IF  A»  =  "n"  THEN  GOTO  410 
C3  230  IF  A»  <  >  "N"  THEN  210 

16  240  GOTO  410 

IB  250  IF  SC  =  0  THEN  270 

66  260  R  =  FN  ROd)):  IF  R  =  FF 

THEN  N  =  F{0)  +  1:F(0J  - 
N:  SOSUB  840:  BOTO  130 
BF  270  IF  TC  =  0  THEN  290 
3B  280  R  =  FN  R(P(TC>):  IF  R  =  F 
F  THEN  N  »  F(0)  +  1:F(0) 
=    N:  GOTO  1160 
*1   290  E  =  0:  FOR  I  =  4  TO  1  STE 
P-l!  IFT(I,0)  "0  THEN 
E  =  I 
Ffl  300  NEXT 

67  310  IF  E  =  0  THEN  370 
36  320  IF  SC  =  0  THEN  370 

C6  330  T(E,1>  =  S(1):T(E,0>  =  1: 

SC  -  SC  -  1 
5D  340  FDR  I  =  1  TO  SC:  S  ( I )  =  S( 

I  +  1):  NEXT  ;S(SC  +  1)  = 
-  1 
D7  350  K   =  S(1)!LX  =  SXrLY  =  SY: 

GOSUB  1740 
it   360  K  =  T(E,1>:LX  =  TX  +  3  * 

E;LY  =  TY:  8QSUB  1740;  GO 

SUB  2920:  GOTO  130 
W   370  BET  A» 


IF 

432 

9C 

434 

6F 

436 

3* 

450 

n 

460 

?2 

510 

n 

560 

Bl 

570 

CS  390  ON  CX(  ASC  (A«)>  GOTO  510 
,395, 1010,560, 120,690,400 

93  395  BOSUB  2940;  GOTO  130 

IF  400  IF  BR  <  50  THEN  BR  =  0 

11  410  HOME  :  TEXT 

35  420  VTAB  9:  HTAB  7;  PRINT  "TH 
ANKS  FOR  PLAYINB,  " ; NM« 

3E  430  VTAB  11;  HTAB  3:  PRINT  "Y 
OU  HAVE  A  TOTAL  BANKROLL 
OF  •";BR 

PRINT  CHR»  (4) "OPEN  "Ft 
PRINT  CHR*  (4) "WRITE  "F* 
N$  =  STR*  (BR):  PRINT  N»: 
PRINT  CHR»  (4) "CLOSE  "F» 
VTAB  13!  HTAB  9:  PRINT  "C 
DME  BACK  AGAIN  SOON!" 
FDR  I  =  1  TO  4000:  NEXT  : 

TEXT  ;  HOME  :  END 
1  =  VAL  (A«):  BOSUB  2900: 

BOTO  1370 
IF  PC  =  0  THEN  130 
IF  PC  =  TC  THEN  ZX  =  NX  » 
7:ZY  -  NY  t  8:  GOSUB  185 
0SLX  =  PX:LY  -  PY:K  =  -  1 
:  GOSUB  1740 

41  580  IF  P(TC  +  1)  =  -  1  THEN  T 
C  =  0 

65  590  IF  P(TC  +  2)  =  -  1  THEN  T 
C  =  TC  +  1;  GOTO  620 

SS  600  IF  P(TC  +  3)  =  -  1  THEN  T 
C  =  TC  +  2;  GOTO  620 

HI  610  TC  =  TC  +  3 

CI  620  IF  PC  =  TC  THEN  ZX  =  PX  * 
7: ZY  =  PY  «  B:  GOSUB  185 
0 

Eft  630  BOSUB  1902 

12  660  IF  P(TC  +  1)  =  -  1  THEN  Z 

X  =  NX  *  7;ZY  =  NY  «  8:  B 

OSUB  1740 
2F  670  K  -  P(TC):LX  =  NX:LY  =  NY 

;  GOSUB  2920!  GOSUB  1740: 
GDTD  130 
K   680  GOTO  130 
ES  690  GOSUB  1725:  BOSUB  2900:  I 

F  SC  =  0  THEN  130 

94  700  R  =  FN  R(S(1)) 

09  710  GET  B«:  ON  CXI  ASC  (Bt)  ) 

GOTO  880,780,770,770,120, 

770,400 
7F  770  GOSUB  2940:  GOTO  130 
2ft  780  GOSUB  1728 
ftl  790  IF  R  =  0  THEN  NF  =  S ( 1 )  + 

121  GOTO  810 
lA  800  NF  =  S(l)  -  1 
47  810  N  =  0 
IB  320  N-N+1:  IFN  =  5  THEN 

GOSUB  2940:  SOTO  130 
49  830  IF  FIN)  <  >  NF  THEN  820 
M  840  F(N)  =  S(1):FC  =  FC  +  1:S 

C  =  SC  -  1:BR  =  BR  +  5 
C5  850  FDR  J  =  1  TO  SC:S(J)  =  S( 

J  +  1):  NEXT  ;S<SC  +  1)  ■= 
-  1 
9C  860  K  =  S(1):LX  =  SX:LY  =  SY: 

BDSUB  1740:  GOSUB  2920 
fl7  870  K  =  F(N):LX  =  FX  +  3  «  N: 

LY  =  FY:  GOSUB  1740:  BOSU 

B  1930:  GOTO  130 
7B  880  I  =  VAL  (B«):  GOSUB  1728 
3C  890  IF  T(I,0)  =  0  THEN  J  =  0: 

BDTD  970 
7F  900  IF  R  =  12  THEN  Nl  =  S(l) 

+  1:  GOTO  920 
FE  910  Nl  =  S(l)  +  14 
FB  920  IF  Nl  >  51  THEN  Nl  =  Nl  - 

52 
43  930  N2  =  Nl  +  26:  IF  N2  >  51 

THEN  N2  =  N2  -  52 
74  940  J  =  T(I,0) 
n   950  IF  T(I,J)  =  Nl  THEN  970 
IF  960  IF  T(I,J)  <  >  N2  THEN  GOS 

UB  2940:  GOTO  130 
31  970  J  =  J  +  1:T!I,J)  =  S(1):T 

CI,0>  =  T(I,0)  +  1:SC  =  S 

C  -  1 
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52  980  FDR  N  =  1  TO  SC:S(N)  =  S( 

N  +  1):  NEXT  :S(3C  +  1)  - 

-  1 
M  990  K  =  S(1):LX  =  SX:LY  =  SY: 

BOSUB  1740:  G05UB  2920 
13  1000  K  =  T(I,J):  GOSUB  1732: 

BDTO  130 
42  1010  BOSUB  2900:  60SUB  1725: 

IF  TC  =  0  THEN  130 
13  1020  R  =  FN  R(P<TC>> 
91  1030  GET  B«:  ON  C7.(  flSC  (B«)  ) 

GOTO  1220,1100,1090,109 
0,120, 1090,400 
ftft  1090  GOSUB  2940:  GOTO  130 
SI    1100  GOSUB  1728 
Jl  1110  IF  R  =  0  THEN  NF  -  P<TC) 

+  12:  GOTO  1130 
C2  1120  NF  =  P(TC)  -  1 
3A  1130  N  =  0 
CI  1140  N  =  N+1:  IFN  =  5  THEN 

GOSUB  2940:  GOTO  130 

71  1150  IF  F(N)  <  >  NF  THEN  1140 
Be  U60  F(N>  =  PtTC):FC  =  FC  +  1 

jPC  =  PC  -  IsTC  =  TC  -  1 

72  1170  FOR  1  =  (TC  +  1)  TO  PCsP 

(I)  =  P(I  +  1)  !  NEXT  :P( 

PC  +  1)  =  -  1 
FC  1180  IF  TC  =  0  THEN  GOSUB  190 

2SZX  =  NX  »  75ZY  -  NY  « 

8:  GOSUB  18S0:  GOTO  1200 
B»  1190  K  =  P(TC):LX  =  NX:Ly  -  N 

Y;  SQSUB  1740 
63  1200  VTAB  NY  -  2:  HTAB  NX:  PR 

INT  "   "s:  HTflB  NXs  PRIN 

T  TC 
IB  1210  GOSUB  2920: K  =  F(N):LX  = 
FX  +  3  «  NjLY  =  FYs  SOS 

UB  1740: BR  =  BR  +  5:  QOS 

UB  1930!  QOTD  130 
Bl  1220  I  =  VAL  (B*>:  GOSUB  1728 
£B  1230  IF  TCI,0)  =  0  THEN  J  =  0 

:  GOTO  1310 
E5  1240  IF  R  =  12  THEN  Nl  =  PtTC 

)  +  1:  GOTO  1260 

36  1250  Nl  =  P<TC>  +  14 

K    1260  IF  Nl  >  51  THEN  Nl  =  Nl 

-  52 
3A  1270  N2  =  Nl  +  26:  IF  N2  >  51 

THEN  N2  =  N2  -  52 
Ai  1280  J  =  T(I,0) 
65  1290  IF  T(I,J)  =  Nl  THEN  1310 
CB  1300  IF  T(I,J)  <  >  N2  THEN  GO 

SUB  2940:  GOTO  130 
17  1310  J  =  J  +  1:T(I,J)  =  P(TC) 

:T(I,0)  =  T(I,0J  +  l;PC 

=  PC  -  IsTC  =  TC  -  1 
4E  1320  FOR  N  =  (TC  +  1)  TO  PC:P 
(N)  =  P(N  +  1) ;  NEXT  :P( 

PC  +  1)  =  -  1 
17  1330  IF  TC  =  0  THEN  GOSUB  191 

0:  GOTO  1360 
AI  1340  K  =  P(TC):LX  =  NX:LY  =  N 

Y:  GOSUB  1740 
99  1350  GOSUB  1902 
B!  1360  GOSUB  2920: K  =  T(I,J):  G 

OSUB  1732:  GOTO  130 
63  1370  GOSUB  1725:  IF  T(I,0)  = 

0  THEN  130 
ii   1380  GET  BS:  ON  C7.  (  ASC  (BS)  ) 
GOTO  1570, 14S0, 1440, 144 

0, 120,1440,400 
9E  1440  GGSUB  2940:  GOTO  130 
6F  1450  GOSUB  1728:0  =  T(I,0)!R 

■=  FN  R(T(I,J)  > 

37  1460  X  =  T(I,J):R  =  FN  R<X) 

D2  1470  IF  R  =  0  THEN  NF  =  T(I,J 

)  +  12:  GOTO  1490 
25  1480  NF  =  T(I,J)  -  1 

53  1490  N  =  0 

B?  1500  N  =  N+l!  IFN  =  5  THEN 

GOSUB  2940!  QOTD  130 
48  1510  IF  F<NJ  <  >  NF  THEN  1500 
M  1520  F(N)  =  T(I,J):FC  =  FC  + 
I:T(I,0)  =  T(I,0)  -  IsBR 
=  BR  +  5 
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57  1530  K  =  -  1:  GOSUB  1732:  GOB 

UB  2920 
*D  1540  IF  T(I,0)  <  >  0  THEN  J  = 
J  -  1:K  "  T<I,J)s  GOSUB 
1732 
C5  1550  K  =  F(N)  :LX  =  FX  +  3  «  N 

:LY  =  FY:  GOSUB  1740:  GO 

SUB  1930 
EC  1560  GOTO  130 
FB  1570  A  =  VAL  (B«)  :  GOSUB  1728 

:R  =  FN  R(T(I,1) ) 
ai  1580  IF  R  =  12  THEN  Nl  =  T(I, 

1)  +  1:  GOTO  1600 
09  1590  Nl  =  T(I,1)  +  14 
95  1600  IF  Nl  >  51  THEN  Nl  =  Nl 

-  52 

2fl  1610  N2  =  Nl  +  26:  IF  N2  >  51 

THEN  N2  =  N2  -  52 
9B  1620  B  =  T(ft,0):  IF  B  =  0  THE 
N  GOSUB  2940:  GOTO  130 

OD  1630  IF  T(A,B)  =  Nl  THEN  1650 
B9  1640  IF  T<A,B)  <  >  N2  THEN  GO 

SUB  2940:  GOTO  130 
(C  1650  FOR  J  =  1  TO  T(1,0):K  = 

-  1:  GOSUB  1732:  NEXT 

26  1660  FOR  J  =  1  TO  T(I,0)!B  = 

T<A,0)  +  JjTtA,B)  =■  T(I, 

J> 
K   1670  K  =  T(A,B):ZX  =  21  «  A  + 
TX  *  7:ZV  =  TY  «  a  +  B 

»  14  -  14:  GOSUB  1750:  Q 

OSUB  2900:  NEXT 
E6  1680  T(A,0)  =  T<A,0J  +  T(I,0) 

:T(I,0)  =  0:  GOTO  130 
21  1690  FDR  I  =  1  TO  4: 
51  1700  IF  T(I,0)  =  0  THEN  1720 
55  1710  J  =  T(I,0)!K  =  T(I,J)!  0 

OSUB  1732 
B7  1720  NEXT 
57  1722  RETURN 

B1  1725  VTAB  CY:  HTAB  CX:  PRINT 

"  "!  HTAB  CXs  PRINT  "  " 
Bl  1727  VTAB  CY:  HTAB  CX:  PRINT 

A«:  RETURN 
16  172B  VTAB  CY  +  1:  HTAB  CX:  PR 

INT  B«:  RETURN 
15  1732  ZX  =  21  »  I  +  TX  »  7:ZY 

=  TY  «  B  +  J  »  14  -  14: 

GOTO  1750 
CB  1740  ZX  =  LX  »  7:ZY  -  LY  «  e 
SB  1750  IF  K  >  -  1  THEN  17B0 
24  1760  IF  ZX  /  2  <  >  INT  (ZX  / 

2>  THEN  ZX  =  ZX  -  1 
DA  1770  CALL  32768,  0,  ZX,  ZY:  ZX  = 

ZX  +  2:  CALL  32768, 0,ZX, 

ZY:  RETURN 
04  1780  SUIT  =  INT  (K  /  13)  :R  = 

K  -  (13  «  SUIT):CDL  -  0 
il  1790  IF  SUIT  =  1  OR  SUIT  =  2 

THEN  COL  =  2 
DE  1820  IF  ZX  /  2  =  INT  (ZX  /  2) 

THEN  ZX  =  ZX  +  1 
F6  1030  CALL  32768, K  +  1,ZX,ZY 
Fl  1840  RETURN 
90  1850  HCOL0R=  0:  FOR  I  ■=  0  TO 

23:T  =  ZY  +  I:T1  -  ZX  + 

20:  HPLDT  ZX,T  TO  T1,T: 

NEXT  ;  HCDLOR=  3:  RETURN 
C6  1902  VTAB  PY  -  2:  HTAB  PX:  PR 

INT  "    ";:  HTflB  PX:  PRI 

NT  PC  -  TC 
FD  1904  VTAB  NY  -  2!  HTAB  NX:  PR 

INT  "   ";:  HTAB  NX:  PRIN 

T  TC:  RETURN 
<F  1910  ZX  =  NX  «  7:ZY  =  NY  *  B: 

GOSUB  18S0:  GOTO  1902 
CI  1930  VTAB  IS:  HTAB  2:  PRINT  " 
"j:  HTAB  2:  PRINT  "» 

"BR 
f3  1940  RETURN 

F7  1950  IF  BR  >  49  THEN  2050 
62  1960  HOME 
BC  1980  VTAB  9:  HTAB  11:  PRINT  " 

YOU  HAVE  ONLY  ♦";BR;"!"i 


FDR  I  =  1  TO  3000:  NEXT 
fl3  1990  VTAB  12:  HTAB  15:  PRINT 

"TDD  BAD! ! " :  FOR  I  =  1  T 

0  2000:  NEXT 
19  2000  VTAB  22:  HTAB  22:  PRINT 

"PLAY  AGAIN?  (Y/N) " 
2E  2010  GET  A*:  IF  A«  =  ""  THEN 

2010 
C3  2020  IF  A*  =  "Y"  THEN  BR  =  50 

0:  GOSUB  2640:  GOTO  20S0 
AI  2030  IF  A*  =  "N"  THEN  BR  =  0! 

GOTO  410 
61  2040  SOTO  2010 

36  2050  F(2)  =  -  1:F(3>  =  -  1:F( 

4)  =  -  1:TN  =  -  1:FC  =  0 
:TC  =  0 

37  2060  K  =  -  1:LY  =  FY:  FDR  I  = 

1  TO  4SLX  =  FX  +  I  «  3s 
BOSUB  1740:  NEXT 
FF  2070  K  =  -  1:LX  =  PX:LY  =  PY: 
BOSUB  1740! ZX  =  NX  t  7s 

ZY  =  NY  t  8:  GOSUB  1850 
58  2090  FOR  I  =  1  TO  4:J  =  0 
15  2100  J  =  J  +  1:  IF  J  =  13  THE 

N  2130 
48  2110  IF  T(I,J>  =  -  I  THEN  213 

0 
A9  2120  GOSUB  1732s  BOTO  2100 
Bl  2130  NEXT 
19  2140  LX  =  PX:LY  =  PY:  GOSUB  1 

740 
DD  2150  BR  =  BR  -  50:  FOR  I  =  1 

TO  17:  GOSUB  2920:  NEXT 

:  GOSUB  1930 
5F  2160  FOR  I  =  52  TO  1  STEP  -  1 

:  C  =  INT  < I  *  RND  ( 1 ) )  + 
1:P(53  -  I)  =  D(C>!D(C) 
=  D(I) !  NEXT 
EI  2170  FDR  I  =  1  TO  52!D(I)  =  P 

CDs  NEXT 
77  2180  FOR  I  =  1  TO  13:S(I)  =  P 

(I)s  NEXT  sSC  =  13 
7B  2190  F(l)  =  P(14)jF(0)  =  IsFC 
=  IsFF  =  Fdl  -  13  «  IN 

T  (F(l)  /  13):PC  *  34 
7E  2200  FDR  I  =  1  TO  4:T(I,0)  = 

l!T(I,l)  =  P(14  +  1)1  FO 

R  J  =  2  TO  12:Tn,J)  =  - 
1:  NEXT  :  NEXT 
K   2210  FOR  I  =  1  TO  PC:P(I)  =  P 

(I  +  52  -  PC):  NEXT  :P<P 

C  +  1)  =  -  1 
61  2220  K    =  S(1):LX  =  SX:LY  =  SY 

:  GOSUB  2920:  GOSUB  1740 
85  2230  K  =  F(1):LX  =  FX  +  3:LY 

=  FYs  GOSUB  2920!  BDBUB 

1740! BR  =  BR  +  5:  BOSUB 

1930 
7fl   2240    FDR    I    =    1    TO    4: K   =    T ( I , 1 

) :LX    =    TX    +    3    «    IsLY    =    T 

Y:  GOSUB  2920:  GOSUB  174 

0:  NEXT 
AB  2250  VTAB  PY  -  2:  HTAB  PX:  GO 

SUB  1902 
73  2260  R  =  FN  R(S(U):  IF  R  <  > 

FF  THEN  2310 
81  2270  N  =  F(0)  +  1:F(0)  =  N:F( 

N)  ■=  S(l)  sFC  »  FC  +  IsSC 
=  SC  -  1:BR  =  BR  +  5 
3E  2280  FOR  J  =  1  TO  SC:S(J)  =  S 

(J  +  1):  NEXT  :S(SC  +  1) 

EB  2290  K  =  S(1):LX  =  SX:LY  =  SY 
:  GOSUB  1740:  GOSUB  2920 

CI  2300  K  =  F(N)  :LX  =  FX  +  3  »  N 
SLY  =  FYs  GOSUB  1740:  GO 
SUB  1930:  BOTO  2260 

E6  2310  1  =  0 

5B  2320  1  =  1  +  1:  IF  1  =  5  THEN 
2380 

EC  2330  R  =  FN  R(T(I,l))s  IF  R  < 
>  FF  THEN  2320 

42  2340  N  =  F(0)  +  1:F<0)  =  N:F( 
N)  =  T(I,1)  sFC  -  FC  +  1» 
BR  =  BR  +  5 


Dg  2350  K"-1:LX»=TX  +  3»I: 
LY  -  TY:  BOSUB  1740: K  - 
F(N) ILX  -  FX  +  3  »  N:LY 
-  FYt  80SUB  2920:  BDSUB 
17401  GOSUB  1?30 

CF  2360  T(I,1)  =  S(l)iT(I,0>  =  1 
sSC  -  SC  -  Is  FOR  J  -  1 
TO  SCi3(J)  »  3<J  +  1>:  N 
EXT  !S(SC  +  1)  -  -  1 

D9  2370  K    =  B(1):LX  =  SX:LY  »  SY 
I  SOSUB  17401 K  -  T<I,1): 
LX  -  TX  +  3  *  I;LY  =  TYl 
SOSUB  1740:  60T0  2260 

FS  2380  RETURN 

71  2400  H8R2  :  HOHE  :  POKE  28,42 
t  CALL  624S4 

K!   2402  FOR  I  -  PY  -  2  TO  PY  +  7 
:  VTAB  Ii  HTflB  PX  -  2:  P 
RINT  ■■  ";  HE 

XT 

42  2410  HOME  :  HTflB  11:  PRINT  "1 
2   3   4" 

iA  2420  VTAB  5:  HTflB  2:  PRINT  "S 
TOOK" 

52  2422  VTAB  3:  HTflB  29:  PRINT  " 

FOUNDflTIDN" 
73  2424  VTAB  17:  HTflB  2:  PRINT  " 

BANK" 
El  2428  VTAB  16:  HTAB  27:  PRINT 

"PACK  TALON" 
B3  2430  VTAB  22:  HTAB  27:  PRINT 

"<RET>  REDEAL":  HTAB  27 I 
PRINT  "CTRL  e  EXIT" 
DC  2S00  RETURN 
IF  2520  DIM  D(52J  ,P{S2>,S<13>,T< 

4,12>,C7.{255) 
7F  2522  1-2 
15  2524  READ  AsCXCA)  =  1:1  =  1  + 

li  IF  fl  <  >  5  THEN  2524 
21  2530  FOR  I  -  65  TO  975  07.(1  + 

32>  -  Cr.<IJs  ^EXT 
4?  2540  FOR  I  =  49  TO  52:C%(I)  = 

1:  NEXT 
ii   2545  ONERR  GOTO  2585 
M   2530  INPUT  "  ENTER  PLAYER'S  N 

AMEf  ";NM» 
IB  2560  IF  NM»  =  ""  THEN  2550 
7D  2565  F»  =  NM»  +  ".CftN":F»  -  L 

EFT»  (F»,12) 
M  2570  PRINT  CHR»  (4) "OPEN  "F» 
75  2573  PRINT  CHR»  {4)"REflD  "F» 
Jl  2580  INPUT  N»!BR  =  VAL  (N»  + 

"  ") 
it   25B5  PRINT  CHR«  (4)  "CLOSE  "F* 
BB  2590  IF  BR  <  50  THEN  BR  =  500 
fl  2595  POKE  216,0 
if  2600  FOR  I  =  1  TO  52:D(I)  =  I 

-  li  NEXT 
CJ  2610  FX  =  23:  FY  =  4:SX  =  2:SY 
=  6;TX  "  7:TY  -  liNX  - 

33lNY  -  16: PX  -  28: PY  - 

16:CX  -  27:CY  =  18 
!7  2620  DEF  FN  R(X)  =  X  -  13  «  I 

NT  (X  /  13) 
3A  2B90  SOTO  40 
BB  2900  PRINT  "tBJ"; 
EB  2910  RETURN 
C2  2920  T  -  PEEK  (  -  16336) 
Fl  2930  RETURN 

53  2940  FOR  I  =  0  TO  29:T  =  PEEK 

{  ~  16336) !  NEXT 
FB  2950  RETURN 
49  3030  DATA  70,84,80,13,83,5 

Program  5:  IBM  PC/PCjr 
Canfield 

Version  by  George  Miller,  Editorial 
Programmer 

HE  10  '  COPYRIGHT  (C)  19BB  CDMPU 
TBI  PUBLICATIONS,  INC. 

Ft  20  '  ALL  RIGHTS  R 

ESERVED 


60  30  KEY  OFF:  DEF  SEG=0:DEFINT  fl 
-Z:PDKE  1047, PEEK (1047)  OR 
64: RANDOMIZE  TIMER 
DL  40  FOR  X  =  0  TO  13:  Ct=C*+CHR*  (2 
20 )  :  D*=D«+CHR* ( 223 ) : NEX  T : F 
OR  X=0  TO  9:E*=ES+CHR«<196 
) :NEXT 
CI  50  DIM  CD*(52)  ,M(52),ST*tl3)  , 
FD*(4, 13),TB«{4,25),PK$(34 
>,V«(13) 
EG  60  SCREEN  0,1:WIDTH  40:COLOR 

15, 10: CLS: BOSUB  320 
IJ  70  COLOR  15, 2,0;  CLS:  COLOR  14: 
LOCATE  3, 25: PRINT  C*:FOR  I 
=  0  TO  3:L0CATE  4+I,25:PRI 
NT  CHR$(221)+" 
"+CHR*(222):NEXT:LaCATE  9, 
25: PRINT  DS: LOCATE  12,25:C 
OLOR  14: LOCATE  9, 25: PRINT 
0« 
PP  80  LOCATE  12,  25:  COLOR  4:  PRINT 
C»: LOCATE  13, 25: PRINT  CHR 
*(221);:CQLDR  14: PRINT  CHR 
«(218); :PRINT  E*;:PRINT  CH 
R*(191) ;:CDLOR  4: PRINT  CHR 
»( 222): LOCATE  14, 26: COLOR 
14: PRINT  CHR* (179)+"  CftNFI 
ELD  "+CHRS(179) 
JK  90  LOCATE  15,  25:  COLOR  4:  PRINT 
CHR«(221)5:C0L0R  14: PRINT 
CHR* ( 192) ;: PRINT  E*;:PRIN 
T  CHR* (217) ;: COLOR  4: PRINT 
CHR* (222): LOCATE  16, 25: PR 
INT  D*: LOCATE  21, 25: COLOR 
14: PR  INT  C* 
SF  100  FDR  1=0  TO  1:  LOCATE  22+1, 
25: PRINT  CHR* (221)+" 

"+CHR«(222) ;:NEXT: 
LOCATE  24, 25: PR  INT  D*;:CO 
LOR  14: LOCATE  21, 2: PRINT 
LEFT* (C*, 9) 
LI  110  FDR  1=0  TO  1:  LOCATE  22+1, 
2: PRINT  CHR* (221)+" 
"+CHR* (222) ; : NEXT: LOCATE 
24,2:PRINT  LEFT*(D*,9); 
LC  120  COLOR  15:  LOCATE  5,27:  PRIN 
T"F1   Quit": LOCATE  7,27:P 
RINT"F10  Concede" 
PH  130  LOCATE  1,9: PRINT  "oundati 
on":LOCATE  5, 9: PRINT" I 
2    3    4": LOCATE  9,2:PRI 
NT "TOCK": LOCATE  22,28:PRI 
NT"Bankroll" 
FF  140  BANK=BANK-50: COLOR  14,2:L 
DC ATE  23, 29: PR I NT"*"; BANK 
: COLOR  15: LOCATE  22,3:PR1 
NT"FrDm: ": LOCATE  23,5:PRI 
NT"To:": LOCATE  23, 13: PR  IN 
T"ack":LOCATE  23, 1S:PRINT 
"alon" 
JK  150  COLOR  15,  4:  LOCATE  1,8:  PRI 
NT"F":LOCATE  9,1:PRINT"S" 
:LOCATE  23, 12: PRINT"P" : LO 
CATE  23, 17:PRINT"T":C0L0R 
15, 2: BOSUB  390 
Fl  160  COLOR  2,  2:  LOCATE  22,  9:  PRI 
NT"  ": LOCATE  23,9:PRINT" 
": COLOR  15,4:6QSUB  250 
GA  170  A«=INKEY«:IF  A«=""  THEN  1 

70 
JP  180  IF  A«="."  THEN  1010 
KP  190  IF  A*s="/"  THEN  BOSUB  290: 

GOTO  70 
JD  200  LOCATE  22, 9:  PRINT  A« 
HC  210  IF  A*  =  "P"  THEN  BDSUB  610: 

6DT0  160 
DK  220  IF  A«="T"  THEN  GOSUB  750! 

GOTO  160 
HP  230  IF  A*>="1"  AND  A*<  =  "4"  TH 

EN  BOSUB  ll70:BaTO  160 
LD  240  IF  A«="S"  THEN  SOSUB  1040 

iBOTD  160  ELSE  160 
FL  250  TOTAL=0:FOR  Y=l  TO  SU  :  TO 
TAL=TQTAL+F(Y):NEXT: IF  TO 
TAL<52  THEN  RETURN 


GP 

270 

ac 

280 

KC 

290 

FB 

300 

PC  310 


EJ  320 


KG  260  CLS:CDLOR  14,1:L0CATE  8,8 
:PRINT"CDngratulations,  " 
PLAYER*" !": LOCATE  10, 7: PR 
INT" You've  beaten  the  odd 
s!" 

LOCATE  12, 10:PRINT"Play  a 
gain  (Y/N)?" 

A»=INKEY*:IF  A*="Y"  THEN 
70  ELSE  IF  ft«='"N"  THEN  10 
10  ELSE  280 

IF  BANK>S0  THEN  RETURN 
CLS:COLOR  1,15:L0CATE  10, 
20:PRINT"Sorry,  you  only 
have  *";BANK;"  remaining. 
":  LOCATE  12,20:PRINT"WoLil 
d  you  1 i ks  to  play  again? 

(y/n>" 
A«=INKEYS!lF  A»="Y"  THEN 
BANK=500:SOTO  70  ELSE  IF 
At="N"  THEN  CLS: END  ELSE 
310 

CLS: LOCATE  5, 14,0; COLOR  1 
5:PRINT  C*:LOCATE  6,14:PR 
INT  CHR*(22n ;:CDLOR  14: P 
RINT  CHR*(218) ;:PRINT  E»; 
: PRINT  CHR*(191);:C0L0R  1 
5 : PR I NT  CHR* (222):L0CATE 
7, 15: COLOR  14: PRINT  CHR* < 
179)+"  CANFIELD  "+CHRt(17 
9) 

BB  330  LOCATE  B,14:C0L0R  15:PRIN 
T  CHR«(221);:C0L0R  14: PRI 
NT  CHR* ( 192) ;: PRINT  E«;:P 
RINT  CHR* (217) ;: COLOR  15: 
PRINT  CHR* (222): LOCATE  9, 
14:PRINT  D* 

KF  340  COLOR  12: LOCATE  14, 4: PR IN 
T" Copyright  1988  COMPUTE! 
Pub.,  Inc.": LOCATE  15,11 
:PRINT"flll  Rights  Reserve 
d":COLOR  14:L0CAT£  17,4:1 
NPUT  "Enter  Player' 5  NAME 
:  " ; PLAYER* 
ON  ERROR  GOTO  370 
OPEN  "I",»1,PLAYER*+".DAT 
":INPUT#1,BANK:CLDSE  #1 
IF  BANK<=0  THEN  BANK=500 
FOR  X=0  TO  3: FOR  T=l  TO  1 
3: READ  CD* f X» 13+T) : CD* ( X* 
13+T) =CD* (Xt 13+T) +CHR* ( X+ 
3): NEXT: RESTORE  1530:NEXT 
: RESTORE  1530: FDR  T=13  TO 
1  STEP-trREAD  V»(T):NEXT 
:KEY  l,"."iKEY  10,"/"JRET 
URN 

M  390  LOCATE  15, 5: COLOR  1: PRINT 

"Shuffling  Deck " ; FOR  I 

=1  TO  52:M(I)=I:NEXT:F0R 
1=1  TO  52:X=INT(52»RND)+1 
:TP=M(I):MII)=M(X) :M(X)=T 
PsNEXT 

HE  400  LOCATE  15,  5:  COLOR  7:  PRINT 

":PK=34 
:TN=0 

PI   410   FOR    X=l    TO    13:ST*<X)=CD*( 
M(X) ) :NEXT:TP*=ST*(13) : GO 
SUB    5a0:XL=10!¥L=2teOSUB 
a50:ST=13:ST*(0)="       " 

PM  420  FD*(1,1)-CD*(M(14)  )  :TP*=F 
D*(l,l) :BOSUB  5B0:XL=2:YL 
=7:eOSUB  B50:F=7:SU=1:BDS 
UB  860: FOR  X=15  TO  18: TB* 
(X-14, 1)=CD*(M(X) ):NEXT 

JD  430  FOR  X'=19  TO  52:  PK«  (X-18)  = 
CD*(M(X))  :NEXT:PK*(0)=:" 

EB  440  COLOR  0,10:  LOCATE  20,11:P 

RINT  PK 
DJ  450  COLOR  7,6:XL''21:YL=12:TP* 

="   ": SOSUB  850: COLOR  0,1 

0 
NO  460  XL=6:F0R  C=l  TO  4  :  TP*=TB 

«(Q, 1):T(Q)=1:F(Q)=0:SOSU 

B  580:  YL'«5+ (4*Q)  :  GOSUB  85 

0:NEXT:F(1)=1 


FQ  350 

ND  360 


16  370 
KF  380 
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BJ 

510 

HF 

520 

IB 

330 

CC 

540 

ftB  470  IF  LEFT*(ST*<ST),  DOLEFT 
*(FDS(1, 1) , 1)  THEN  510 

in  480  GDSUB  a40:BU=SU+l:FD«(SU, 
l)=STt(ST) :GOSUB  1480 

K  490  GOSUB  840: I=SU:F=F+4:TP»= 
ST*(ST):GOSUB  5a0:XL=2:YL 
=F: GOSUB  850: GOSUB  860:81 
=ST-1 

IE  500  TP*=ST*(ST)  :XL=10:YL=2!BO 
SUB  580: GDSUB  850: GOTO  47 
0 

T=0 

T=T+1:TP»=TB«(T, 1>: IF  LEF 
Tt (TPS, 1 ) =LEFT* (FD*  < I  ,  1 )  , 
1)  THEN  340 

IF  T<4  THEN  520  ELSE  RETU 
RN 

I=T:eaSUB  840: GOSUB  560: G 
OSUB  580: GOSUB  a50:GQSUB 
860: GOSUB  570:TP*="   " ; GO 
SUB  850 

PH  550  IF  STO0  THEN  TP*=ST«<ST) 
: GDSUB  570: GDSUB  5B0:6DSU 
B  B50:ST=ST-l:TBt(T, 1)=TP 
*: TP*=STt (ST) : XL=10: YL=2: 
GOSUB  5B0:BaSUB  850: BDTO 
470 

m   560  SU=SU+1:FD»(SU,1)=TP*:L0C 
ATE  20, 18: COLOR  0,2: PRINT 
TN : GOSUB  1 480 : F=F+4 : XL=2 
!YL=F: RETURN 

PE  570  XL=6:YL=5+(T*4):  RETURN 

Nil  580  IF  TP$="  "  THEN  COLOR  0, 
2: RETURN 

HE  590  IF  RIGHT*(TPt,  n=CHR«(3) 
OR  R1EHT«<TP*, l>=CHRt(4) 
THEN  COLOR  4, 7  ELSE  COLOR 

rd  600  RETURN 

Kfl  610  IF  PK=0  THEN  PK=TN:TN=0 

(IJ  620  IF  PK<3  THEN  TN=TN+PK:PK= 
0  ELSE  PK=PK-3:TN=TN+3 

U  630  IF  PK=0  THEN  COLOR  2,2  EL 
SE  COLOR  7,6 

OE  640  XL=21:  YL=12:C0L0R  7, 6:  TPS 
=  ■'  ":  GOSUB  850:  COLOR  0,2 
:  LOCATE  20,  11:  IF  PKO0  TH 
EN  PRINT  PK  ELSE  PRINT  " 

E6  650  XL=21: YL=19:TP*=PK*(TN):G 

OSUB  5B0: GOSUB  850: LOCATE 

20, 18: COLOR  0,2: PRINT  TN 

NE  660  IF  LEFT*  (TP*,  DOLEFT*  (FD 
* (1 , 1 ) , 1 )  THEN  RETURN 

ID  670  TN=TN-1:IF  TNO0  THEN  SOS 
UB  710 

EE  680  IF  TN=0  THEN  XL=20:YL=18: 
COLOR  0,2:TP«="   ":PRINT 
TP*:XL=21:YL=19: GOSUB  850 

EJ  690  IF  PK=0  THEN  XL=20:YL=15: 
COLOR  0,2:TP«="   ": GOSUB 
850 

GOTO  640 

SU=-3U+  1:FD*(SU,1)=TP«:LDC 
ATE  20, 18: COLOR  0,2: PRINT 

TN: GOSUB  1480: GOSUB  840 
GOSUB  5B0:F=F+4: XL=2: YL=F 
: GOSUB  850: GDSUB  860 
IF  TN>0  THEN  TP*=PK*(TN): 
GDSUB  580:XL=21:YL=19:GOS 
UB  850 

FOR  I=TN+1  TO  33:T=I+1:PK 
«(I)=PK*(T) : NEXT: RETURN 
A*=INKEY*: IF  A*=""  THEN  G 
OTO  750 

A=VALCft$): LOCATE  Z3,9:PRI 
NT  A«:TP$=PKS(TN) 
IF  A>=1  AND  A<=4  AND  T<A) 
=0  THEN  TB«(A, 1)=TP«:60TO 
820 

OP  7B0  IF  A«="F"  THEN  GOSUB  870: 

IF  HIT=1  THEN  GDSUB  930:  H 

IT=0 
f.t  790  IF  A=0  THEN  RETURN 
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m 

700 

M 

710 

BD 

720 

CL 

730 

LC 

740 

GJ 

750 

.',N 

760 

Et 

770 

OL  800  R=A: Y=T(ft):IF  A«>="1"  OR 

AS<="4"  THEN  GOSUB  940: IF 
HIT=1  THEN  GDSUB  1000 
S£  810  RETURN 
n:  820  XL=6:YL=5+(4*VAL(A*>  ):T(V 

AL(A*) )=1:G0SUB  1000: IF  T 

N=0  THEN  GDSUB  B30  ELSE  R 

ETURN 
U   830  TP*="   ":XL=21:YL=19:G0SU 

B  580: GOSUB  8S0: RETURN 
EL  840  FDR  DELAY=D  TO  1500:NEXT: 

RETURN 
HH  850  LOCATE  XL,  YL:  PRINT  TP*:LQ 

CATE  XL+1,YL: PRINT  RIGHT* 

<TP*, 1); :PRINT  LEFT* CTP*, 

1 ) : RETURN 
m   860  BANK=BANK+5: COLOR  14,2:L0 

CATE  23, 29: PRINT  "      ": 

LOCATE  23,30:PRINT"*"BANK 

: RETURN 
fiE  870    FDR   Q=l    TO   SU: IF   RIGHT* (F 

DS(a,FCE) ) , 1)=RIGHT*<TP*, 

1)     THEN    F*=FD*(E,F(Q) ) :S= 

Q 
FD  880  NEXT:  IF  S<>0  THEN  890  ELS 

E  RETURN 
PD  890  IF  LEFT*(F*,1)="A"  THEN  V 

=1: GDSUB  1500  : GOTO  910 
Kft  900  BDSUB  1490: GOSUB  1500 
HD  910  IF  V+IOC  THEN  RETURN 
(ID  920  F(B)=F(S)+1:FD*(S,F(3)>=T 

P»: XL=2: YL=3+ (4*5) : HIT=1 : 

BOSUB  500: GOSUB  850: GOSUB 
860: RETURN 
EG  930  XL='21:YL=19:TN-TN-1:  GDSUB 

740: GOTO  640 
IE  940  IF  ASC<RIGHT*(TP*,  1)  )<5  A 

ND  ASC (RIGHT* (TB*(R, Y) , 1) 

><5  THEN  RETURN 
NB  950  IF  ASC(RIGHT«(TP«,  1>  )  >4  A 

ND  ASC(RIGHT*<TB«(R,Y), 1) 

) >4  THEN  RETURN 
en  960  F*=TB*(R,Y):  IF  LEFT*{TP*, 

1>="A"  THEN  C=l: GOSUB  149 

0  ELSE  GOSUB  1490: GOSUB  1 

500 
JB  970  IF  V-IOC  THEN  RETURN 
BN  980  T(R)=T(R)  +  1:XL=6+(T(R)-U 

;YL=5+t4«R) 
Gl  990  TB*(R,  Y+1)=TP*:HIT=1:RETU 

RN 
GF  1000  GOSUB  580;  GOSUB  S50:TN°T 
N-l:TP*=PKt(TN) :XL=21: YL 
=19: GOSUB  580: GDSUB  850: 
GOSUB  740: HIT=0: GOTO  640 
m    1010  CLS: LOCATE  10, 10: COLOR  2 
,4,0:PRINT"You  have  *"BA 
NK"  remaining." 
BF  1020  LOCATE  12, 7:  PRINT"Thank 
you  for  playing  ";;COLOR 
14:PRINT"CANFIELD" 
HD  1030  OPEN  "0",#1,PLAYER*+".DA 
T"  :  PRINT#1 ,  SANK:  CLDSEttl.: 
END 
«M  1040  IF  ST=0  THEN  RETURN 
JF  1050  TP*=ST«(ST) 


HH 


THEN 


1060  A*=1NKE¥»: IF  A*=' 

1060 
BC  1070  IF  A*="F"  THEN  GOSUB  870 

: GOSUB  1100: RETURN 
CF  10B0  IF  A*>="1"  AND  At<  =  "4"  T 

HEN  R=VAL(A«) :Y=T(R):GOS 

UB  940: GOSUB  1100: RETURN 
JE  1090  RETURN 

EE  1100  IF  HIT=0  THEN  RETURN 
CI  1110  GOSUB  580:  GDSUB  a50:ST-S 

T-1:TP*=ST*(ST) :XL=10: YL 

=2: GOSUB  580: GOSUB  850:  H 

IT=0 
PB  1120  IF  ST=0  THEN  COLOR  0,2:6 

OSUB  850: RETURN 
P(i  1130  IF  LEFT«<ST*<ST)  ,  DOLEF 

T*(FDtCl, 1),1)  THEN  RETU 

RN 
KL  1140  GOSUB  B40:SU=SU+1:FD«(SU 


, 1>=ST*( ST) : GOSUB  1480 
LO  1150  GOSUB  840:  1=SU:F=F+4:TP« 

=ST«(ST>: GOSUB  580: XL=2: 

YL-F: GOSUB  B50: GOSUB  860 

:BT=ST-1 
JO  1160  TP*=ST*(ST) :XL=10:YL=2:6 

OSUB  580: GOSUB  850: GOTO 

1130 
HI    1170  B*=INKEY»:IF  B*  =  ""  THEN 

1170 
FL  1180  LOCATE  23, 9:  PRINT  B*:A=V 

AL(A*):T=T(A) : S=A 
HF  1190  IF  A>=1  AND  A<  =  4  THEN  TP 

t==TB*(A,T) 
Bd  1200  IF  B*<>"F"  THEN  1300 
BB  1210  IF  LEFT*  (TP*,  n<>LEFT*(F 

D*(l, 1), 1)  THEN  1240 
EB  1220  IF  SU<4  THEN  SU=SU+l  ELS 

E  1240 
UB  1230  FC5U>=1;FD*(SU,  n=TPS 
9!  1240  GOSUB  870 
on  1250  IF  HITOl  THEN  RETURN 
PL  1260  HIT=0 
LB  1270  IF  A*>="1"  AND  A*<  =  "4"  T 

HEN  A=VAL(A*):T(Al=TtA)- 

1:IF  T(A)=0  THEN  1290 

BJ  1280  TP*="   ":XL=6+T(A)  :YL=5+ 

(Rt4):60SUB  850:TP$=TB*( 

A,T(A) >:GOSUB  5B0:XL=6+( 

T(A)-l) :GOSUB  850: RETURN 
JJ  1290  TPt-s"   ":  XL=6+T(A)  :  YL=5+ 

(A»4):  GDSUB  850:  IF  STO0 
THEN  T=A: GOSUB  550: T (A) 

=1: RETURN 
E(t  1300  IF  A*=B*  THEN  RETURN 
CS  1310  IF  B»>="1"  AND  B*<  =  "4"  T 

HEN  B=VAL(B*) :F*=TB*(B,T 

(B) ):60TD  1330 
IH  1320  RETURN 
NK  1330  IF  A*>="1"  AND  A*<-"4"  T 

HEN  A=VAL(A*1 :TP*=TB»(A, 

1) 
B*  1340  IF  ASC  (RIGHT*  iTP*,  1>)<5 

AND  ASC(RIBHT*(F», 1))<3 

THEN  RETURN 
BJ  1350  IF  ASC(RIGHT«(TP«,1)  )  >4 

AND  ASC(RIGHT*(F*,1) )>4 

THEN  RETURN 
DP  1360  IF  LEFT*(TP*,  1)="A"  THEN 
C=l: GOSUB  1490: GOTO  138 

0 
M  1370  GOSUB  1500: BOSUB  1490 
PI  1380  IF  V-IOC  THEN  RETURN 
EE  1390  IF  A*>="1"  AND  A«<  =  "4"  T 

HEN  A=VAL(At) :YL=5+A»4:T 

(A)=0 
KB  1400  COLOR  7,2:TP*="   " 
HH  1410  FOR  Y=T  TO  0  STEP-1 :  XL=7 

+(Y-1):G0SUB  a50:NEXT 
PK  1420  IF  B*>="1"  AND  B*<  =  "4"  T 

HEN  B=VAL(B*) :YL=5+(B»4) 

:TA=B:SB=T(B) 
NK  1430  FOR  Y=l  TO  T:  TB*  <TA,  SB+Y 

>=TB*(S,Y) 
CL  1440  IF  B*>="1"  AND  B*<  =  "4"  T 

HEN  B=VAL(B*) :T(B)=T(B)+ 

1 
FK  1450  TP*=TB*(S,Y}:XL=S+(SB+Y) 

: GOSUB  580: GOSUB  850: NEX 

T 
Id  1460  IF  T(A)=0  AND  5TO0  THEN 

GOTO  1290 
Kl  1470  RETURN 
GD  14B0  F(SU)=t:  RETURN 
HK  1490  G*=F*:  GDSUB  1510: V=6!  RET 

URN 
CK  1500  G*=TP*:  GDSUB  1510:C=G:RE 

TURN 
ID  1510  FOR  1  =  13  TO  1  STEP-1:  IF 

LEFT*(G», 1)=V*(I)  THEN  G 

=  1  +  1 
U    1520  NEXT: RETURN 
IH  1530  DATA  A,  K,  Q,  J  ,  T,  9,  8,  7,  6,  5 

,4,3,2 


Program  6:  Amiga  Canfleld 

Version  by  George  Miller,  Editorial  Programmer 

•< 

■  COPYRIGHT  (C)  1988  COMPUTEl  PUBLICATIONS,  INC, 

■♦ 

'  ALL  RIGHTS  RESERVED-* 

DEFINT  a-ZrDEFSNG  r ,  g,  i>:  RANDOMIZE  TIMER* 

DIM  sb(36,3) ,CD$(52) ,M(52),STS(13),FD5(4,13) ,TB$ 

t4,25),pk9(34),v5(13)* 

t$="   ■■« 

■* 

INPUT"What  is  your  name";NAH5-* 

yorn :* 

PRINT  "Do  you  have  an  account"  ,■:  INPUT  yorn?* 

IF  UCASE?{LEFT${yorn$, 1))="Y"  THEN* 

OPEN  NAM$  FOR  INPUT  AS  #1* 

INPUT#l,bank* 

CLOSE  I  * 
ELSE* 

IF  OCASE5(LEFT5(yornS,l) )<>"N"  THEN  yorn* 
END  IF* 
* 

GOSUB  DoScreen* 
GOSUfl  InitiaLize* 
GOSUB  GaraeScreen* 
* 

ChecKey:* 

GOSUB  CheckTotaLiGOSUB  GetKey* 

IF  key=129  THEN  endgame* 

IF  key=I33  THEN  GOSUB  Busted :GOSUB  GameScreen :G0 

TO  ChecKey* 

COLOR  2,15:LOCATE  22,9:PRINT  a$* 

IF  a?="P"  THEN  GOSUB  PacK:G0TO  ChecKey* 

IP  a5="T"  THEN  GOSUB  DoTalon:GOTO  ChecKey* 

IF  a$>="l"  AND  a5<="4"  THEN  GOSUB  TtoTAjGOTO  Che 

cKey* 

IF  a5="S"  THEN  GOSUB  StackPLay : GOTO  ChecKey  ELSE 

ChecKey* 
4 
* 
* 

GameScreen:* 

COLOR  2,13!CLS!WIDTH  40* 

FOR  c=0  TO  2: FOR  X=0  TO  3: LINE  ( 200+X*2 , 20+{ 70*C 
)+X*2)-(305-X*2,70+(60*c)-x*2) , 12+x , bf :NEXT  x , c* 
COLOR  2, 15: LOCATE  5 , 27 : PRINT"F1  Quit": LOCATE  7, 
27: PRINT" F10  Concede"* 

LOCATE  14,2B:COL0R  i2,15:PRINT  "Canfleld"* 
COLOR  2, 10: LOCATE  1 , 9 : PRINT  "oundation" i LOCATE  5 
.9* 

PRINT"!  2  3  4":LOCATE  9, 2 : PRINT" tock" : LOCA 
TE  22,28* 

COLOR  2, 15iPHINT"Bankroll"* 
bank=bank-50 : LOCATE  23,29: PRINT" 5 " ibank* 
FOR  x=0  TO  3:LINE  { 9+x*2 , 160+x*2 ) -{ 77-x*2 , 191-x* 
2) ,12+x,bf :NEXT  x* 

LOCATE  22,3:PRINT"Frora:":LOCATE  23 , 5 : PRINT"To: "* 
COLOR  2, 10: LOCATE  23 , 13 : PRINT"ack" ; :LOCATE  23,18 
:PRINT"alOn";* 

COLOR  3, 10  I  LOCATE  1 , 3 r PRINT" F" : LOCATE  9,1: PRINT" 
S":LOCATE  23 , 12 : PRINT"P"* 
LOCATE  23,17:PRINT"T" :COLOR  2,10* 
GOSUB  ShuffLeDeck* 
* 
RETURN* 

4 

CheokTotaLi* 

COLOR  2,15:LOCATE  22,9: PRINT"  "; LOCATE  23,9:PRIN 
T"  "  ;  * 

TOTAL=0:FOR  y=l  TO  SU  :TOTAL=TOTAL+F( y ) :NEXT : IF 
TOTAL<52  THEN  RETURN* 

CLS: COLOR  14,1: LOCATE  8 , 10 : PRINT"Congratulations 
,  "playerS"!"* 

LOCATE  10, 7: PRINT" You've  beaten  the  oddsl"* 
LOCATE  12,10jPRINT°Play  again  (Y/N)?"* 
GOSUB  GetKey:* 
rs:* 

IF  a?="Y"  THEN* 

GOSUB  GameScreen: GOTO  ChecKey* 
. ELSEIF  a$="N"  THEN* 
endgame* 
ELSE  * 
GOTO  rs* 
END  IF* 


Busted:* 

IF  bank>50  THEN  RETURN* 

CLS:COLOR  1,15:L0CATE  10, 20 : PRINT" Sorry,  you  onl 

y  have  5";bank;"  remaining. ": LOCATE  12,20:PRINT" 

Would  you  like  to  play  again?  (y/n)"* 

Bra:* 

GOSUB  GetKey: IF  a5="Y"  THEN  « 

bank=50a :G0T0  GameScreen :GOTO  ChecKey* 

ELSEIF  a$="N"  THEN* 

GOTO  endgame* 

ELSE* 

GOTO  Brs* 

END  IF* 

* 

InitiaLize:* 

WIDTH  40:COLOR  2,10:CLS* 

FOR  x=0  TO  3:LINE  ( l00+x*2 , 40+X*2 )- ( 205-x*2 , 63-x 

*2),12+x,bf:NEXT  x* 

COLOR  2,15:LOCATE  7,16:PRINT  "Canfleld"* 

COLOR  2, 10: LOCATE  14 , 4 :PRIKIT"Copyright  1988  COMP 

UTEl  Pub.,  Inc."* 

LOCATE  15,  Hi  PRINT"  All  Rights  Reserved":* 

* 

SetBank:* 

IF  bank<=0  THEN  bank=500* 

RESTORE  cards* 

FOR  x=0  TO  3: FOR  t=l  TO  13* 

READ  CD?(x*13+t)  !CD$  (  x*13-l-t)=CD?  (  x*  13+t)+CHR?  (  X+ 

6  5): NEXT* 

RESTORE  cards: NEXT* 

FOR  t=13  TO  1  STEP-1:READ  V?(t):NEXT:* 

GOSUB  InitShapes* 

RETURN* 

4 

cards :* 

DATA  A, K, Q, J, T, 9, 8, 7, 6, 5, 4, 3, 2* 

* 

ShuffLeDeck:* 

LOCATE  lB,S:COLOR  2, 10 s PRINT" Shuf f 1 ing  Deck...": 

FOR  i=l  TO  52:M(i)=i:NEXT:FOR  1=1  TO  52:x=INT(52 

*RND)-l-l:tp=M(i)  :M(i)=M(x)  :  M(  x)=tp:NEXT* 

LOCATE  15, 5: PRINT"  " :pk=34 :TN=0* 

FOR  x=l  TO  13;ST¥Cx)=CDS(M(x) ) :NEXT:tpS=ST?(13)* 

xL=10:yL=2: GOSUB  ShowCard;ST=13 :ST?(0)="   "* 

FD$(1,1)=CDIJ(M(14)  )  :tp$=FD$(l,  1)  :XL=2:yL=7* 

GOSUB  ShowCardiF=7:SU=l: GOSUB  VQank:FOR  x=15  TO 

18* 

TB?(x-14, l)=CDS(H(x) ) :NEXT* 

FOR  X=19  TO  52:pkS(x-18)=CD5(M(x) ) :NEXT:pk5(0)=" 

"4 

GOSUB  ShowDeck4 

* 

xL=6:F0R  Q=l  TO  4  : tp$=TB5 ( Q, 1 ) : t ( Q) =1 : F(Q)=04 

yL=5+(4*Q) iGOSUB  ShowCard:NEXTiF{ 1 )=14 

STtoFDi4 

IF  LEFTS(STS(ST),l)<>LEFT$(FD5(i,l) ,1)  THEN  SetT 

4 

GOSUB  DeLaY:SU=SU+l:FDS(SU,l)=ST5(ST) :GOSUB  NewS 

uit* 

GOSUB  DeLaY:i=SU:F=F-)-4:tp?  =  ST5(ST)  :XL=2:yL=F* 

GOSUB  ShowCard: GOSUB  VBank: ST=ST-1* 

tpS=STS(ST) :XL=ia!yL=2sG0SUB  ShowCard :GOTO  STtoF 

D* 

SetT:* 

t=04 

TltF:4 

t=t+l:tp$=TBS(t,l) :IF  LEFT? { tp? , 1 ) =LEFT5 (FD? ( 1 , 1 

),1)  THEN  Setl* 

IF  t<4  THEN  TltF  ELSE  RETURN* 

Setl:* 

l=t:GOSUB  DeLaY:GOSUB  AddSuit iGOSUB  ShowCard* 

GOSUB  VBank:GOSUB  YcalCjtpS="   "iGOSUB  ShowCard* 

STKi* 

IF  STO0  THEN  4 

tpS=ST?(ST) :GOSUB  YcalC:GOSUB  ShowCard* 

ST=ST-1  :TB5  ( t ,  1 )  =tpS  :  tp?=ST?  (  ST )  :  xL=»i0  :yL=24 

GOSUB  ShowCard :GOTO  STtoFD* 

END  IF* 

AddSuit:* 

SU=SU+l!FD5{SU,l)=tp5:LOCATE  20,18iCOLOR  2,ieiPR 

INT  TN* 

GOSUB  NewSuitiF=F-l-4!XL=2  :yL=F  i  RETURN* 

YcalC:* 

XL=6:yL=5+(t*4) : RETURN* 

* 

PacK : * 

IF  pk=0  THEN  pk=TN:TN=0* 
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IP  pk<3  THEN  TN=TN+pk:pk=0  ELSE  pk=pk-3 !TN=TN+3 : 

GOSUB  ShowDecksGOTO  PTaLon4 

■♦ 

PBLank:-< 

xL=21 :yL=12!C0L0R  7,6:tp5="   " s GOSUB  ShowCard* 

COLOR  2,0:LOCATE  2a,lliIF  pk <> 0  THEH  PRINT  pk  EL 

SE  PRINT  "  "* 

GOSUB  ShowDeck* 

PTaLon:* 

xL=21:yL=19:tp5=pk5{TN)  :GOSUB  ShowCard-« 

LOCATE  20,18!COLOR  2,0:PRINT  TN-< 

IF  LEFT?(tp$,  1)<>LEFT$(FDS{  1,  1)  ,  1)  THEN  RETURN-* 

TtI=TN-l:IF  TN<>0  THEN  GOSUB  ISuit-t 

IF  TN=0  THEN  XL=20 !yL=18 :COL0R  0,2:tpS="   ":PRIN 

T  tp5:xL=21:yL=19:GOSUB  ShowCard* 

IF  pk=0  THEN  xL=20!yL=15!COLOR  0,2!tp5="   ":GOSU 

B  ShowCard-* 

GOTO  PBLank-* 

■* 

ISuit:-* 

SU=SU+l:FD?(SU,l)=tp5;L0CATE  20,18:COLOR  2,0!PRI 

NT  TN:  GOSUB  NewSu  it :  GOSUB  DeLaY'« 

F=F+4:xL=2:yL=F: GOSUB  ShowCard : GOSUB  VBank* 

IF  TN>0  THEN  tpS=pk5 (TN) : xL=2l :yL=19 jGOSUB  ShowC 

ard: GOSUB  ShowDeck* 

DPack:* 

FOR  i=TN+l  TO  33 : t=i+l : pk? ( i ) =pk5 ( t) ;NEXT : RETURN 


DoTalons* 

GOSUB  GetKeyt 

a=VAL(aS)  :  COLOR  2, 15:  LOCATE  23,  9:  PRINT  a5:tp?='pk 

5(TN)  * 

IF  a>=l  AND  a<=4  AND  t(a)=0  THEN  TB5 (a, I )=tp? :G0 

TO  NewCard-* 

IF  aS="F"  THEN  GOSUB  ChkFDTP:IF  HIT=1  THEN  GOSUB 

LTaLon;HIT=0* 
IF  a=0  THEN  RETURN-* 

r=a:y=t(a) ;IF  a>=l  OR  a<=4  THEN  GOSUB  ChkTable:! 
F  KIT=1  THEN  GOSUB  TnMiN-* 
GOSUB  ShowDeck-* 
RETURN-* 
* 

NewCard:-* 

xL=6syL=5+(4*a) :t(a)=l iGOSUB  TnMiNiIF  TS=0  THEN 
GOSUB  NCard  ELSE  RETURN* 
* 

NCard:-* 

tp5="   ":xL=21:yL=19: GOSUB  ShowCard-* 

IF  pk<>0  THEN  GOSUB  ShowDeck-* 

RETURN-* 

4 

DeLaY:-* 

FOR  DeLaY=0  TO  VaLC:SEXT:  RETURN-* 

4 

ShowCard : * 

COLOR  10,10:LOCATE  xL,yL:PRINT  t5:G0SUB  CheckCoL 

or-* 

IF  tp5  =  "   "  THEN-* 

GOTO  Space-* 

END  IF-* 

LOCATE  XL,  yL:  PRINT  LEFT?  ( tp$  ,  I ) -* 

X=yL*a  :  y»xL*8-8  :  j=ASC  (  RIGHT$  ( tp?  ,  1 )  )  -65-* 

PUT  (x,y),Sb(0,  j)  ,  PSET-* 

PUT  (x-3,y+8)  ,sb(0,  j)  iPSET-* 

LOCATE  xL-H,yL+l:  PRINT  LEFTS  ( tp?  ,  1 ):  RETURN-* 

Space:-* 

COLOR  10, 10: LOCATE  xL,yLs PRINT  tp?: LOCATE  xL+l,y 

Li  PRINT  tp5:  RETURN-* 


CheckCoLor  :-* 

IF  tp5  =  "   "  THEN  COLOR  5,  6:  RETURN-* 

IF  RIGHT? (tpS,l)=CHR5( 65)  OR  RIGHTS ( tp? , 1 ) =CHRS( 

66)  THEN-* 

COLOR  12,2-* 

ELSE* 

COLOR  5,2* 

END  IF* 

RETURN* 

* 

VBank:  bank=bank+5 rCOLOR  2,15:LOCATE  23,29:PRINT 

"^ 
LOCATE   23, 30: PRINT"? "bank: RETURN* 
ChkFDTP:* 
FOR    Q=l    TO    SU* 


IF  RIGHT?(FD?(Q,F(Q)) ,l)=RIGaT?(tp?,l)  THEN  FS=F 

D?(Q,F(Q) ) :3=Q* 

NEXTjIF  3<>a  THEN  IsAce  ELSE  RETURN* 

IsAce:* 

IF  LEFT?{F?,1)="A"  THEN  v=l:GOSUB  VaLC:G0TO  VC* 

GOSUB  VaLGiGOSUB  VaLC* 

VC:* 

IF    v-Hoc   THEN    RETURN* 

F(s)=F(s)-H:FD?(s,F(s)  )  =  tp?  :  xL=2  :yL=3-i- (  4*s  )  :HIT= 

1* 

GOSUB  ShowCard  :  GOSUB  VBank:  RETURN-* 

LTaLon : * 

xL=21:yL=19:TN=TN-l: GOSUB  DPackrGOTO  PBLank* 

ChkTable:* 

IF  ASC(RIGHT?(tp?,l))<=66  AND  ASC( RIGHT? (TB? ( r, y 

),1))<=66  THEN  RETURN* 

IF  ASC(RIGHT?(tp?,l))=>67  AND  ASC( RIGHTS (TBS ( r,y 

),1))=>67  THEN  RETURN* 

FS=TBS(r,y)* 

IF  LEFT?(tp?,l)="A"  THEN  c=l:GOSUB  VaLG  ELSE  GOS 

UB  VaLGiGOSUB  VaLC* 

IF    v-loc   THEN    RETURN* 

t(r>=t(r)-H:xL=6-f-(t(r)-l)  iyL=5-(-(4*r )* 

TBS  (  r,  y-H  )=-tp?  i  HIT=1 ;  RETURN* 

TnMiN:* 

GOSUB  ShowCard :TN=TN-l:tpS=pk?(TN)* 

xL=21:yL=19:G0SUfl  ShowCard: GOSUB  DPack:HIT=0:GOT 

O  PBLank* 


endgame:* 

CLS:LOCATE  10,8 : PRINT" YOU  have  ?"bank"  remaining 

."* 

LOCATE  12,SiPRINT"Thank  you  for  playing  ";:COLOR 

6 : PRINT" CANFIELD" * 
OPEN  KAM5  FOR  OUTPUT  AS  #1* 
PRINT#l,bank* 
CLOSE  1* 

WINDOW  CLOSE  3 : SCREEN  CLOSE  1:END* 
StackPLay:-* 
IF  ST=0  THEN  RETURN* 
tpS=STS(ST)* 
GOSUB  GetKey* 

IF  a?="F"  THEN  GOSUB  ChkFDTPiGOSUB  NfewStOck : RETU 
RN* 

IF  a?>="l"  AND  a?<="4"  THEN  r=VAL( a? ) : y=t( r ) : GOS 
UB  ChkTable :GOSUB  NewStock: RETURN* 
RETURN* 
NewStocks* 

IF    HIT=0    THEN    RETURN* 

GOSUB  ShowCard : ST=ST-i i tpS=STS ( ST> ♦ 
XL=10 : y L=2 : GOSUB  ShowCard : HIT=0* 
IF  ST=0  THEN  COLOR  0,2iGOSUB  ShowCard s RETURN* 
ReChK :  < 

IP  LEFT?(STS(ST) ,1)<>LEFTS(FDS(1,1) ,1)  THEN  RETU 
RN* 

GOSUB  DeLaY : SU=SU-H  : FDS ( SU, 1)=STS( ST) : GOSUB  NewS 
Uit* 

GOSUB  DeLaYs  i=SU  :  F=iF+4  :  tp5  =  ST?  (  ST  )* 
xL=2:yL=F:G0SUB  ShowCard : GOSUB  VBank; ST=ST-1* 
tp?=ST?(ST) :xL=ia:yL=2:G0SUB  ShowCard :G0T0  ReChK 
* 
* 

TtoTA:* 

a=VAI<{aS)  jGOSUB   GetKey:b?=a$  :b=VAL(a?)* 
LOCATE    23,9: PRINT    b? : t=t ( a ) : s=a* 
IF    a>=l    AND    a<=4    THEN    tp?=TBS { a, t ) * 
IP   bS<>"F"    THEN   AeB* 

IF  LEFTS(tp?,i)<>LEFT?(FD?(l, 1), 1)  THEN  NoM* 
IF  SU<4  THEN  SU=SU-H  ELSE  NoM* 
F ( SU ) =1 : FD? ( SU , 1 ) =tp?* 
NoHi* 

GOSUB  ChkFDTP* 
IF  HITol  THEN  RETURN* 
HIT=0* 
IF  a>=l  AND  a<=4  THEN  t( a ) =t ( a )-l : IF  t(a)=0  THEN 

NOTA* 
tp?="   "  :xL=6-l-t(a)  :yL-5-H(a*4)  :G0SUB  ShowCard* 
tp?=TB? ( a , t ( a ) ) ; XL=6+ ( t ( a ) - 1 } : GOSUB  ShowCard : RET 
URN* 
NoTA:* 

tp?  =  "   "  :xL=6-t-t(a}  :yL=5-l-(a*4)  :G0SUB  ShowCard* 
IF  STofl  THEN  t=a:G0SUB  STK  :  t(  a)  =1  :  RETURN* 
AeS;* 

IF  a=b  THEN  RETURN* 

IF  b>=l  AND  b<=4  THEN  F5=TB? (b, t ( b) ) :G0T0  PLyTab 
Le* 


RETURN-* 

PLyTabLe:* 

IF  a>  =  l  AND  a<=4  THEN  tp$=Ta$  ( a,  1  )-• 

IF  tCb)=0  THEN  v=l:c=0:GOTO  ovt 

IF  ASC(RIGHT$(tp5,l))<=66  AND  ASC( RIGHT? (FS , 1 )) < 

=66  THEN  RETURN* 

IF  ASC(RIGHT?(tp?,l) )=>67  AND  ASC( RIGHT? (F$ , 1) ) = 

>67  THEN  RETURN* 

IF  LEFT$(tp5,  1)»"A"  THEN  c-liGOSUB  VaLG  i  GOTO  CV-* 

GOSUB  VaLCiGOSUB  VaLG* 

cv:* 

IF    v-ioc    THEN    RETURN* 

IF    a>=l    AND    a<-4    THEN   yL=5+a*4 : t ( a ) =0* 

tp?="       "* 

FOR  y=t  TO  0  STEP-l:xL=?+(y-l) :GOSUB  ShowCard:NE 

XT* 

yL=S+(b*4) iTA=b:sb=t(b)* 

* 

FOR  ty=l  TO  t* 

TB?CTA,sb+ty)=TBS(3,ty) : t (b) =t {b)+l* 

tpS=TB$(s,ty) :xL=S+(sb+ty)< 

GOSUB  ShowCard* 

NEXT  ty* 

* 

IF  t(a)=0  AND  STO0  THEN  NoTA* 

RETURN* 

* 

NewSuit:* 

F(SU)=1: RETURN* 

VaLG:* 

g5=FS: GOSUB  Vcards :v=g j RETURN* 

VaLC:* 

9$=tp5iGOSUB  Vcards:c=g:RETURN* 

Vcards:* 

FOR  i=13  TO  1  STEP-1:IF  LEFT? (g5 , 1 )=v5 ( i )  THEN  g 

=  i+l* 

1520  NEXT! RETURN* 


COLOR  10,10* 

ELSE* 

COLOR  15,15* 

END  IF* 

tp$="   "iLOCATE  21, 12: PRINT  tp5* 

LOCATE  22,12:PRINT  tp$* 

RETURN* 

* 

DoScreent* 

SCREEN  1,320,200,4,1:WINDOW  3 , " " , ( 0, 0 ) - ( 311 , 136 ) 

,16,1:* 

WINDOW  OUTPUT  3: COLOR  3,0: WIDTH  40 : RESTORE  PaLet 

teData:FOR  i=0  TO  15* 

READ  r,g,b! PALETTE  i , r, g , b : NEXT* 

RETURN* 

* 

PaLetteDatai* 

DATA  0 , . 7 , 0* 

DATA  0,0,0* 

DATA  1,1,1* 

DATA  1,0,0* 

DATA  1,1,1* 

DATA  0,0,0* 

DATA  1,0,0* 

DATA  1,1,1* 

DATA  0,0,0* 

DATA  1,0,0* 

DATA  a, .7,0* 

DATA  1,0,0* 

DATA  1,0,0* 

DATA  1, .5, .1* 

DATA  1, .7, .1* 

DATA  1,  .6,  .1* 


InitShapes:* 

RESTORE  InitShapes* 

FOR  j=0  TO  3: FDR  i=0  TO  36:* 

READ  a?:sb(i, j)=VAL("&H"+a5) :NEXT  i,j* 

RETURN* 

* 

'heart* 

DATA  8,8,4,FF00,FF00,FF00,FF00,FF00* 

DATA  FF00,FF00,PF00,FF00, 9900, 8100, 8100,8100* 

DATA  C300,E700,FF00,FF00, 9900, 8100, 8100, 8100* 

DATA  C300 , E730 , FF0a , 0 , 6600 , 7E00 , 7E00 , 7E00* 

DATA  3C00, 1800,0,0,0* 

* 

"diamond* 

DATA  8 , 8 , 4, FF00 , FF00 , FF00 , FF00, FF00* 

DATA  FF00 , FF00 , FF00 , FF00, E700 , C300 ,8100 ,8100* 

DATA  C300  ,  E-700  ,  FF00  ,  FF00 ,  E700 ,  C300  ,  8100 ,  8100* 

DATA  C300 , E700 , FF00 ,0,1800, 3C00 , 7E00 , 7E00* 

DATA  3C00, 1600, 0,0,0* 

* 

■club* 

DATA  8,8,4,FF00,E700,E700,9900,9900* 

DATA  E700 , C300 , FF00 , FF00 , E700 , E700 , 9900 , 9900* 

DATA  E700 , C300 , FF00, FF00 , E730 , E700 , 9900 , 9900* 

DATA  E700 , C300 , FF0a, 0 , 1800 , 1800 , 6600 , 6600* 

DATA  1800, 3C00, 0,0,0* 


' spade* 

DATA  8, 8, 4, FF00,E700, 0300,8100,8100* 

DATA  8100 , E70O, FF00 , FF00 , E700 , C300 , 8100 , 8100* 

DATA  3100, E700,FF00,FF00,E700,C300, 8100, 8100* 

DATA  8100,E700,FF00,0, 1800 , 3C00, 7E00 , 7E00* 

DATA  7E00, 1800,0,0,0* 

* 

* 

GetKey:* 

aS=INKEY5* 

IF  a$<>""  THEN* 

a5=UCASE?{a?)* 

key=ASC(a5)* 

ELSE* 

GOTO  GetKey* 

END  IF* 

RETURN* 

* 

ShowDec's:* 

LOCATE  20,11:COLOR  2,10:PRINT  pk* 

IF  pk=0  THEN* 


/ \ 
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The  World  Inside  the  Computer 

Fred  D'lgnozio,  Associate  Editor 


Treat  Your  Kids  To  Some  K-Mail 


Our  day  is  probably  a  lot  like  yours. 
My  wife  Janet  is  up  like  a  shot  at 
5:15  a.m.  Ten  minutes  later  she 
plays  reveille  over  the  walkie-talkie 
we  have  rigged  between  our  first- 
fioor  bedroom  and  our  son's  distant 
second-floor  bedroom.  "Get  up, 
sleepy  bags/'  she  warbles.  !  grunt 
and  roll  out  of  bed. 

Then  it's  hurry,  hurry,  hurry. 
Wake  the  kids.  Feed  the  cat.  Make 
the  lunches.  Wake  the  kids  again. 
Make  breakfasts.  Sign  homework 
papers.  Search  for  lunch  money. 
Find  shoes.  Tie  shoes.  Find  kids. 
Rush  them  out  the  door. 

Janet  is  like  an  invisible 
"wake-up"  elf  in  the  morning.  No 
one  ever  actually  sees  her.  She 
rushes  around  saying  cheery 
things,  whipping  up  scrambled 
eggs  for  Eric,  putting  on  makeup, 
and  then,  zip!  she's  out  the  door  as 
we  stumble  into  the  kitchen.  "Who 
was  that?"  Catie  usually  asks. 
"Mommy,"  says  Eric,  "I  think." 

Your  Hair  Looks  Great! 

All  the  members  of  my  family,  in- 
cluding Mowie  the  cat,  go  in  differ- 
ent directions.  We're  together  as  a 
group  only  10  or  20  minutes  a  day. 
But,  like  any  family,  we  need  to 
communicate.  There  are  all  the  for- 
mal things  like  doctors'  appoint- 
ments, birthday  parties,  shopping 
expeditions,  haircuts,  and  the  like. 
And  there  are  the  little  things  that 
are  just  as  important.  Things  like: 
"How  was  your  day?"  "Your  hair 
looks  great,"  and  "That  was  a  neat 
20-foot  python  made  out  of  spiral 
binder  rings  that  you  brought  home 
from  school  yesterday." 

But  we  never  see  each  other — 
except  in  passing,  So  how  do  we 
stay  in  touch  and  keep  all  those 
little  cracks  and  crevices  in  our  lives 
from  growing  bigger? 

I  used  to  try  to  communicate 
by  magic  marker  and  bulletin 
board.  But  there  were  so  many  mes- 


sages that  the  board  became  messy 
and  impossible  to  read.  Next  I  tried 
yellow  sticky  tabs.  But  sticky  tabs 
are  like  gerbils:  They  multiply. 
Soon  we  had  wallpapered  our  en- 
tire kitchen  in  sticky  tabs;  there 
were  layers  of  new  sticky  tabs  on 
top  of  old  ones,  like  geological  eras 
of  mud,  dust,  and  sludge.  Janet  got 
so  fed  up  with  the  darn  things  she 
held  a  sticky  tab  bonfire  on  top  of 
the  kitchen  stove,  risking  burning 
down  the  whole  house  just  because 
my  domestic  message  system  had 
gotten  a  little  out  of  control. 

Now  we're  in  a  new  home,  and 
we  need  to  communicate  more  than 
ever.  I  don't  dare  smuggle  in  anoth- 
er sticky  tab  (not  if  I  want  to  stay 
married).  So  I've  turned  to  Old 
Faithful:  the  computer. 

Starting  A  K-Board 

The  best  thing  about  our  K-Board 
(Kitchen  electronic  bulletin  board) 
is  that  the  K-Mail  and  the  K- 
Messages  we  send  to  each  other 
don't  accumulate  the  way  sticky 
tabs  used  to.  We  have  a  board  that's 
as  deep  as  the  ocean  and  as  high  as 
the  fins  on  my  mom's  old  Edsel.  It's 
a  virtual  board  with  unlimited 
space.  No  matter  how  many  mes- 
sages we  "tack"  on  our  board, 
there's  always  room  for  more. 

And  it's  cheap!  No  line 
charges.  No  service  or  system 
charges  because  all  the  messages 
are  stored  inside  a  single  computer 
sitting  on  our  kitchen  counter.  We 
happen  to  be  using  Thinktank  on  a 
very  old  Compaq  computer,  but 
you  could  use  any  outline  proces- 
sor, word  processor,  or  database. 

I  have  five  categories  on  the 
computer;  Messages,  Tasks,  Calen- 
dar, Phone  Book,  and  Library.  1  fire 
it  up  when  I  stumble  into  the  kitch- 
en each  morning.  And  I  don't  shut 
it  down  until  the  kids  are  in  bed. 

The  K-Board  just  sits  there, 
smack  in  the  middle  of  the  kitchen. 


quietly  and  invitingly  waiting  for 
people  to  sit  down  and  type  in  mes- 
sages. And   you  know,  it  works. 

I  still  don't  see  Janet  in  the 
morning,  but  when  I've  had  my 
first  cup  of  coffee,  I  sit  down  at  the 
K-Board,  and  there's  a  message 
from  her.  I  usually  reply;  then  I 
grow  ambitious  and  type  messages 
to  Catie,  Eric,  and,  on  my  good 
days,  Mowie.  Catie  has  just  begun 
the  seventh  grade,  and  she's  taking 
French,  so  we've  put  a  stack  of 
French-English  dictionaries  next  to 
the  K-Board,  and  we  cleverly  slip 
French  words  into  our  messages — 
especially  the  messages  to  Mowie. 
(Mowie's  code  name  is  la  chatte 
noire  la  plus  grande  du  monde.) 

Catie  and  Eric  love  the  board. 
Before  its  arrival,  they  always 
rushed  home  from  school  and 
asked  me  if  they  had  received  mail 
that  day.  (I  never  understood  why 
they  asked,  since  neither  ever 
writes  anyone.)  I  had  the  disagree- 
able task  of  telling  them  no.  But 
those  days  are  past.  Now  when 
they  come  home  from  school,  mes- 
sages are  always  waiting — from 
Mommy,  from  Daddy,  from 
Mowie,  and  from  any  other  crea- 
ture my  imagination  can  dream  up. 
Both  children  gobble  the  messages 
up  like  candy  and  then  they  sit 
down  at  the  K-Board  and  dutifully 
reply  to  each  one.  When  I  stand 
behind  Eric's  shoulder  and  watch 
him,  I  am  overcome  by  emotion.  He 
absolutely  refuses  to  read  the  Dick 
and  Jane  texts  his  school  assigns 
him.  But  he  sails  through  his  mes- 
sages on  the  K-Board  and  slowly 
but  surely  pecks  a  heartfelt  reply. 

Sending  and  receiving  K-Mai! 
makes  it  possible  for  the  members 
of  my  family  to  stay  in  better  touch 
with  each  other  despite  their  busy 
schedules.  It  gets  my  kids  to  prac- 
tice their  keyboard  and  word  pro- 
cessing skills.  And  it  just  might  help 
my  son  get  through  the  third  grade.© 
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IBM  Personal  Computing 


Donald  B.  Trivette 


Hot  Line  To  The  Denver  Broncos 


Last  year  I  wrote  a  column  knock- 
ing desktop  utilities  in  general  and 
telephone-directory /autodialing 
software  in  particular.  I  reflected  on 
people  too  lazy  to  dial  a  telephone 
number  and  said  1  preferred  a  good 
ol'  Rolodex  and  a  touch-tone  phone 
to  a  computer  and  a  modem.  Now  a 
product  has  come  along  that  causes 
me  to  eat  those  words.  Hot  Line 
version  2.0  from  General  Infor- 
mation is  a  show  stopper  of  a 
directory/dialer. 

Hot  Line  works  as  a  memory- 
resident  program  taking  about  85K 
of  memory  or  as  a  stand-alone  pro- 
gram executed  directly  from  DOS. 
In  memory-resident  mode,  the  pro- 
gram is  popped  onto  the  screen  by 
the  Alt-FlO  keys,  although  provi- 
sion is  made  to  change  that  combi- 
nation. Either  way,  a  menu  bar  is 
superimposed  on  the  screen  show- 
ing seven  choices:  Dialer,  Phone- 
book, Log,  Keys,  Methods,  Settiitgs, 
and  Help. 

Selection  from  the  menu  is 
made  by  the  point-and-shoot  meth- 
od or  by  typing  the  first  letter  of  the 
choice.  When  Hot  Line  is  running  in 
resident  mode,  you  don't  even  have 
to  fool  with  the  menu  bar  for  often- 
used  commands  but  can  execute 
them  directly  with  function  keys: 
Fl  brings  up  a  national  directory, 
F2  is  a  personal  directory,  F3  acti- 
vates the  city  look-up  function,  and 
F8  brings  up  a  selection  of  the  ten 
numbers  you  most  frequently  dial. 

The  Dialer  command  is  used  to 
enter  and  dial  numbers  directly 
from  the  PC's  numeric  keypad,  it 
can  also  extract  and  dial  a  number 
from  information  on  the  screen. 
Suppose  you  have  a  list  of  names 
and  telephone  numbers  someone 
has  sent  to  you  on  disk — perhaps 
it's  your  turn  to  call  the  computer 
club.  Instead  of  entering  all  the 
numbers  in  your  directory,  you 
simply  use  a  word  processor  or  text 
editor  to  display  the  data  on  the 


screen,  put  the  cursor  by  the  first 
number,  and  invoke  Hot  Line's  Di- 
aler command.  It'll  do  everything 
but  the  talking. 

Super  Phonebook 

The  Phonebook  command  is  the 
heart  of  Hot  Line.  You  can  select 
either  your  personal  telephone 
book  or  a  national  telephone  direc- 
tory supplied  by  General  Infor- 
mation. The  national  directory  has 
10,000  numbers — many  of  them 
toll  free — for  every  type  of  entry 
you  can  imagine.  Both  directories 
are  stored  on  disk,  not  in  memory, 
and  access  with  a  floppy-based 
computer  is  correspondingly  slow. 
A  hard  disk  is  recommended,  but 
General  Information  supplies  a 
smaller  version  of  the  national  di- 
rectory for  floppy  users. 

Want  to  call  NBC  and  get 
information  about  a  television  pro- 
gram? Type  Natiojial  and  you'll  get 
a  screen  full  of  listings  starting  with 
the  word  National,  one  of  which  is 
the  National  Broadcasting  Compa- 
ny. If  you  want  to  call  Yale  Univer- 
sity, type  Yale  and  you'll  see  listings 
for  both  the  campus  switchboard 
and  the  law  journal — as  well  as  for 
Yamaichi  International  and  the  Yel- 
low Cab  Company  of  Tulsa,  Okla- 
homa. Nabisco  brings  up  the  food 
conglomerate;  Denver  pops  up 
numbers  for  the  city,  the  Broncos, 
the  Nuggets,  and  the  Zephyrs;  and 
Compute  shows  Compute!  Publica- 
tions, Inc. 

Although  the  directory  is  re- 
markably complete.  Hot  Line  allows 
you  to  add  new  listings  as  well  as 
supplement  the  national  directory 
with  a  personal  directory.  Your  per- 
sonal listings  can  be  built  with  Hot 
Line,  imported  as  an  ASCII  text  file, 
or  imported  as  a  dBase  III  file. 

The  Phonebook  command  has 
two  more  goodies  on  its  menu:  Cit- 
ies and  Area  Codes.  Cities  lets  you 
enter  a  place  name  and  it  looks  up 


the  area  code.  Area  Codes  does  the 
reverse:  You  enter  an  area  code, 
and  it  gives  you  the  state  and  a 
major  city. 

International  Hot  Line 

Hot  Line  can  dial  international 
numbers  and  Centrex  numbers  as 
easily  as  local  numbers.  Indeed,  it 
can  dial  anything  up  to  30  digits 
and  automatically  affix  a  22-digit 
dialing  code  for  any  of  the  long- 
distance carriers.  I  found  the  way 
the  software  distinguishes  between 
a  local  number  and  a  toll  number  in 
the  same  area  code  especially  inter- 
esting. As  part  of  the  installation 
process,  you  must  edit  a  list  of  all 
possible  exchange  prefixes,  telling 
Hot  Line  which  are  within  your  lo- 
cal calling  area.  The  program  then 
knows  to  precede  the  remaining 
numbers  with  1  to  activate  long 
distance. 

The  Log  command  allows  you 
to  record  and  time  telephone  calls, 
perhaps  for  client  billing.  Keys, 
Methods,  and  Settings  are  Hot  Line 
utility  commands  to  configure,  cus- 
tomize, and  alter  the  program's 
many  parameters.  The  Help  com- 
mand provides  online  assistance. 

Hot  Line  is  so  easy  and  conven- 
ient to  use  that  I  confess  I  am  now 
in  the  legion  of  the  lazy,  although  I 
justify  its  $75  cost  as  a  prudent 
expenditure:  Long-distance  directo- 
ry service  costs  60  cents  a  shot,  so 
after  I've  used  just  120  numbers 
from  the  national  directory,  I  figure 
I'll  be  saving  money. 

Hot  Line  version  2.0  requires 
DOS  2.0  or  later,  a  Hayes  or  Hayes- 
compatible  modem,  one  disk  drive, 
and  256K  of  memory.  It's  available 
from  General  Information,  401 
Park  PL,  Kirkland,  WA,  98033.    @ 
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INSIGHT:  Atari 


Bill  Wilkinson 


Beyond  BASIC 


In  my  last  column,  I  promised  that 
this  month  would  mark  the  begin- 
ning of  a  discussion  of  computer 
languages.  In  particular,  I  want  to 
take  a  look  at  the  strengths  and 
weaknesses  of  various  languages. 
So  this  month,  I'll  open  the  mini- 
series  by  looking  at  data  types. 

If  BASIC  is  your  only  program- 
ming language,  then  you  probably 
have  not  run  across  this  topic  before. 
Yet,  more  than  likely,  you  have  al- 
ready used  various  data  types.  In 
BASIC,  the  two  underlying  data 
types  are  numbers  and  strings.  Typi- 
cally, you  might  write  program  lines 
such  as  these,  where  the  first  line 
demonstrates  numeric  data  types 
and  the  second  shows  strings: 

TOTAL  =  3.7  •  SUBTOTAL 
FILES  =  'T)3:TEST.DAT" 

Because  BASIC  has  only  these 
two  types,  the  language  has  a  very 
simple  scheme  for  distinguishing 
them:  String  variables  have  a  dollar 
sign  on  the  end  of  their  names,  and 
string  literals  have  quotation  marks 
around  their  contents.  Other  data 
items  are  assumed  to  be  numeric — 
simple  and  clean.  Yet  even  in 
BASIC  there  are  actually  several 
implied  data  types  that  are  not  spe- 
cially declared. 

For  example,  consider  the  ad- 
dress that  you  PEEK  or  POKE  to.  It 
must  be  a  number  between  0  and 
65535.  The  actual  value  at  that  ad- 
dress must  be  a  number  between  0 
and  255.  File  numbers  must  be  be- 
tween 0  and  7.  The  list  could  go  on. 
You  object?  You  say  these  are  all 
simply  restricted  ranges  of  the  basic 
numeric  data  type?  In  BASIC,  that 
is  true.  But  in  other  languages.  .  .  . 

Just  My  Type 

Consider  the  following  fragment  of 
a  Pascal  program.  In  Pascal,  the  key- 
word TYPE  means  that  the  follow- 
ing declarations  are  naming  various 
kinds  of  data,  not  reserving  actual 
data   space.   The  keyword   VAR 


means  that  further  declarations  do 
indeed  reserve  space  for  variables. 

TYPE 
Mem_Address  =  0..65535; 
Mem_Data  =  0.,255; 
Channel  =  0,.7; 
Opcn_Mode  =  (  Rd,Wr,Up  > 
Cust^-Rec  =  RECORD 

Name  i  String[30|; 

Addr  :  String[301; 

City  ;  String|15]; 

Slate:  StringI2]; 

Zip  :  0.,99999; 

Credit:  (  OK,Avg,Bad  ); 

END; 

VAR 
Peeker  :  Mem—Address; 
Peeked  :  Mem_Data; 
Customer  ;  Cust_Rec; 
MaiLList  ;  ARRAY  |1..100] 
OF  Cust_Rec; 

Do  you  see  what  we  have  done? 
Thanks  to  Pascal's  very  rich  data- 
typing  capability,  we  are  able  to 
explicitly  say  what  kinds  of  things  a 
given  variable  is  expected  to  han- 
dle. Take  a  close  look  at  the  variable 
Peeked.  Its  declaration  says  that  it  is 
a  memory  data  type.  Most  Pascals 
will  not  even  let  you  try  to  do  a 
statement  such  as  this: 

Peeked  =  3.7  *  Total; 

You  are  trying  to  assign  a  num- 
ber that  probably  has  a  fractional 
part  to  a  variable  that  can  only  have 
integer  values  from  0  to  255.  Pascal 
knows  you  are  being  naughty,  and 
the  compiler  burps  real  quick!  And, 
although  the  following  statement 
might  get  through  the  compiler,  it 
will  probably  get  you  a  range  error 
when  you  run  the  program  (if  the 
original  value  of  Peeked  is  2  or  more): 

Peeked  =  243  *  Peeked; 

Wow!  Safety  first,  right?  Well, 
yes.  But  it  is  more  than  that.  Code 
written  with  strong  data  typing  is 
more  likely  to  run  correctly  (I  have 
had  several  Pascal  programs  that 
worked  the  first  time,  once  they 
had  successfully  compiled).  Most 
importantly,  in  a  commercial  envi- 
ronment, such   code  is   maintain- 


able — a  programmer  can  look  at  the 
code  months  or  even  years  later 
and  figure  out  what  it  is  doing. 

So,  without  even  really  trying, 
I  have  shown  you  one  reason  to 
consider  learning  languages  other 
than  BASIC.  And  I  did  not  mean  to 
imply  that  Pascal  is  the  only  lan- 
guage that  has  advantages  here.  Al- 
though C  is  generally  more 
forgiving  (another  way  of  saying 
you  can  shoot  yourself  in  the  foot 
more  easily)  than  Pascal,  you  can 
build  quite  readable  and  properly 
declared  data  types  and  structures 
with  it.  And,  in  fact,  the  newer  ver- 
sions of  C — ones  which  follow  the 
proposed  ANSI  standard — offer  an 
option  of  choosing  all  the  close 
checking  of  Pascal. 

Setting  The  Record  Straight 

Go  back  and  look  at  those  Pascal 
data  type  declarations  again.  In  par- 
ticular, look  at  the  Cust—Rec  type 
and  the  Customer  and  Mail— List 
variables.  Just  as  Pascal  allows 
more  restrictive  variables  than 
BASIC,  so  does  it  allow  more  com- 
plex variables.  Consider  these  legal 
Pascal  statements  (given  the  above 
declarations): 

Customer.Name  :=  'Jones'  ; 
Cu5tomer.zip  :=  77344; 
Mail_Lisl[  7  ]  :=  Customer  ; 
IF  Customer.Credit  =  Bad 
THEN  WriteCNo  Credit!') ; 

Those  first  two  lines  might  find 
their  way  into  a  BASIC  program 
looking  something  like  this: 

CUSTS(1,30)  =  "JONES" 

CUST$(78,82)  =  STR$(77344) 

Which  is  more  readable?  If  you  de- 
cided to  change  from  5-digit  to  9- 
digit  zip  codes,  which  program  do 
you  think  would  be  easier  to  modi- 
fy? No  contest,  right?  And  how 
would  you  begin  to  do  something 
as  simply  as  those  third  and  fourth 
statements  in  BASIC?  © 
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Tiram  with  NRI  for  a  high  paying 
career  servicing  computers. 


niGITAI,  MUI.TIMKTF.K- 

Priifcsjiionai  test  insttunicnt 
for  quick  and  easy 
measurcmenbi. 

1,ESS<>NS-Clcar.  well  illustrakd 
leKts  buitJ  }'our  und<.-rstanUing 
of  compulers  slep-by-step. 


DISKSOf-TWARE- 
including  MSDOS.  C\V 
BASrC,  WordStar, 
and  C'akStar. 


SANYO  COMPirrER-  8088 
Cl'l"  dnublc-sidtd  disk  drive. 
25BK  RAM,  4.77  MHz  and  8 
MHz  turbo  .spt'ed. 


MOMTOR-High  rL-soluliun, 
firttn  screen  displays,  crisp 
texl  and  grapliics. 


TECH.V1CAI,  VIANLALS 

— wiih  complete  specs  on 
Sanyo  computer  and 
professional  programs. 


DISCOVERY  1,AB-Usinfi  it. 

you  construct  and  test 
circuits  like  those  used 
with  computers. 


DIGITAL 

.ncic 

PROKK- 

Simplifies 
analyzing  digital 
circuit  operation. 


Get  started  now  by  building  tiiis 
fully  IBM  PC  compatible  computer 


Now  you  get  it  all. .  .training  for  America's 
fastest  growing  career  opportunity . . . 
training  to  service  all  computers . . . 
training  on  the  newest  total  computer 
system,  the  Sanyo  880.  Only  NRI  can  give 
you  the  well-rounded  training  you  need, 
because  only  NRI  gives  you  a  complete 
computer  system . . .  computer,  monitor, 
disk  drive,  software,  even  test  instruments 
like  a  digital  multimeter  and  logic  probe  to 
work  with  and  keep.  It  all  adds  up  to 
training  that  builds  the  knowledge, 
competence,  and  ability  you  need  to 
succeed  as  a  computer  service  specialist. 

Get  inside  the  newest,  fully  IBM  PC 
compatible  Sanyo  Microcomputer 

As  an  NRI  student,  you'll  get  total 
hands-on  training  as  you  actually  build 
your  own  latest  model  Sanyo  880  Series 
computer  from  the  keyboai'd  up.  It's  fully 
IBM  PC  compatible  and,  best  of  all,  it 
runs  programs  ahnost  twice  as  fast  as  an 
IBM  PC.  As  you  assemble  the  Sanyo  880, 
you'll  perform  demonstrations  and 


experiments  that  will  give  you  a  total 
mastery  of  computer  operation  and 
ser\'icuig  techniques.  You'll  do  program- 
ming m  BASIC  language— even  run  and 
interpret  essential  diagnostic  software. 

Understanding  you  get  only 
through  experience 

You  need  no  previous  knowledge  to 
succeed  with  NRI.  You  start  with  the 
basics,  rapidly  building  on  the  fundamen- 
tals of  electronics  with  bite-size  lessons. 
You  perform  hands-on  experiments  with 
your  NRI  Discovery  Lab  and  then  move 
on  to  master  advanced  concepts  like 
digital  logic,  microprocessors,  and 
computer  memories. 

Learn  at  home  in  your  spare  time 

You  train  in  your  own  home  at  your  own 
convenience,  backed  at  all  times  by  your 
own  NRI  instructor  and  the  entire  NRI 
staff  of  educators  and  student  service 
support  people.  They're  always  ready  to 
give  you  guidance,  follow  your  progress. 


and  help  you  over  the  rough  spots  to  keep 
you  momg  toward  your  goal. 

100  page  free  catalog  tells  more. . . 
send  today 

Send  the  postage-paid  reply  card  today 
for  NRI's  100  page  catalog  that  gives  all 
the  facts  about  computer  training  plus 
career  training  in  robotics,  data  com- 
munications, TV/audio/ 
video  servicing,  and 
many  other  fields.  If 
the  card  is  missing, 
write  to  NRI  at 
the  address 
below. 


SCHOOLS 


McGraw-Hill  Continuing  Education  Center 

3939  Wisconsin  .Avenue 

Washington.  DC  20016  _  ,  .^ 

We'll  give  you  tomorrow  I  ■  f]  1 1 


AmigaView 


Sheldon  Leemon 


The  AmiExpo 


I've  just  returned  from  AmiExpo, 
the  first  large  computer  show  de- 
voted exclusively  to  the  Amiga,  and 
it  was  quite  an  event.  The  list  of 
attendees  reads  almost  like  a  Who's 
Who  of  Amigadom.  Members  of 
the  original  Amiga  design  team 
gave  speeches  about  the  develop- 
ment of  the  Amiga.  The  current 
Commodore  team  responsible  for 
the  Amiga's  future  also  turned  out 
in  force.  Everyone  from  Irving 
Gould,  chairman  of  CBM,  and 
Richard  Mclntyre,  senior  vice-pres- 
ident of  marketing,  down  to  the 
Amiga  technical  support  staff,  engi- 
neers, and  customer  support  people 
were  there  to  get  the  public's  reac- 
tion to  their  efforts.  Many  of  the 
software  developers  who  wrote  the 
programs  being  shown  in  the  ex- 
hibit hall  were  in  attendance.  A 
large  contingent  of  prominent 
Amiga  users  showed  up,  people 
who  are  well  known  in  the  Amiga 
community  for  their  public  domain 
software  or  for  their  involvement 
with  national  Amiga  users  groups. 
And  of  course,  there  were  plain  old 
Amiga  fans  from  all  over  the  world. 
All  in  all,  nearly  10,000  people  at- 
tended the  three-day  event. 

Although  over  50  Amiga  hard- 
ware and  software  companies  were 
listed  as  exhibitors,  there  were  doz- 
ens more  who  shared  booth  space 
or  just  wandered  around  the  show, 
promoting  their  products.  I'll  quick- 
ly mention  some  of  the  new  prod- 
ucts shown  and  go  into  further 
detail  in  future  columns.  In  the  lan- 
guage department,  Lattice  C  has 
come  back  strong  with  its  version 
4.0.  This  version  was  written  by 
John  Toebes  of  Hack  fame,  whose 
thorough  familiarity  with  the  deep 
voodoo  of  Amiga  programming  has 
allowed  him  to  really  customize  the 
compiler  for  the  Amiga.  Jim  Good- 
now  of  Manx  Software  isn't  sitting 
still  either.  He's  upgraded  the  Aztec 
C  compiler  to  version  3.6  and  added 


a  slick  source-level  debugger. 

Music  And  Video 

On  the  music  front,  Roger  Powell's 
Texture  MIDI  software  has  been 
adapted  for  the  Amiga  by  Sound 
Quest,  and  is  now  available  from 
Magnetic  Music.  New  Wave  Soft- 
ware, maker  of  Dynamic  Drums, 
was  showing  off  its  new  MIDI  se- 
quencer, Dynamic  Studio.  For  video 
buffs,  a  couple  of  new  genlock  in- 
terfaces finally  seem  ready  to  hit 
dealer's  shelves.  The  SuperGen  in- 
terface costs  $750  and  is  said  to 
deliver  true  broadcast-quality  video 
as  well  as  a  number  of  special  fea- 
tures. Mimetics'  ImaGen  costs  only 
$1 79  but  looks  like  it  will  also  deliv- 
er high-quality  video.  With  such 
interfaces,  the  Amiga  becomes  one 
of  the  least-expensive  and  most- 
powerful  video  production  ma- 
chines available.  At  the  show, 
Zuma  announced  that  it's  adding 
TV*Show,  a  companion  program  to 
TV*Text,  to  the  growing  library  of 
Amiga  video  production  software. 

For  months  there  have  been 
rumors  of  a  Commodore  64  emula- 
tor for  the  Amiga.  Apparently,  a  lot 
of  people  believe  in  devolution,  be- 
cause at  AmiExpo  there  were  txuo  64 
emulators  on  display.  SIS's  GO-Si 
has  been  in  the  works  for  over  a 
year,  but  ReadySoft's  64  Emulator  is 
a  surprise  entry  that  was  developed 
in  the  last  couple  of  months.  These 
emulators  come  with  hardware  in- 
terfaces that  allow  the  user  to  turn 
the  Amiga  serial  port  into  a  1541 
drive  port.  Neither  emulator  runs  at 
full  64  speed,  and  both  have  trouble 
with  turbo-load  software.  Time  will 
tell  which  proves  the  more  useful,  if 
that's  the  right  word. 

Two  new  CAD  programs 
showed  up,  one  from  Taurus,  mak- 
ers of  Acquisition,  and  the  other 
from  Progressive  Peripherals.  Tau- 
rus's  CAD-X  is  a  high-powered  pro- 
gram  that    needs    at   least    two 


megabytes  of  memory  to  run.  The 
Progressive  Peripherals  program 
comes  in  two  versions — IntroCAD 
for  the  beginner  and  UltraCAD  for 
the  more  advanced  user. 

Video  digitizers  were  bustin' 
out  all  over.  Perfect  Vision  from 
SunRize  is  trying  to  give  Digi-View 
a  run  for  its  money,  but  the  prelimi- 
nary version  shown  has  a  long  way 
to  go.  Progressive  Peripherals  an- 
nounced a  frame-grabber  product, 
but  didn't  show  it.  Last  but  not 
least,  A-Squared  was  there  with  the 
Amiga  Live!  frame  grabber.  Despite 
my  previous  facetious  innuendo  to 
the  contrary,  it  seems  that  they're 
moving  ahead  with  plans  to  market 
it  themselves.  Unfortunately,  Live! 
works  with  the  1000  only,  and  new 
models  are  not  planned. 

Several  other  hardware  manu- 
facturers were  adapting  their  prod- 
ucts to  the  new  machines.  Supra  was 
showing  SCSI  hard  drives  for  both 
the  500  and  2000,  as  well  as  a  new 
2400-bps  modem  for  $220.  Memory 
expansion  products  for  the  500  were 
in  ample  supply.  Spirit  Technology 
was  selling  1,5-megabyte  internal  ex- 
pansion memor}'  cards  for  the  500, 
while  Progressive  Peripherals  was 
talking  about  an  8-megabyte  board 
for  the  litdest  Amiga.  Byte  by  Byte 
was  showing  an  external  2-meg  box. 
Anakin  Research  had  new  versions 
of  their  Easyl  drawing  pad  for  both 
the  500  and  2000. 

Besides  the  software  exposition, 
AmiExpo  featured  a  large  number  of 
conferences,  featuring  a  wide  variety 
of  knowledgeable  speakers  (myself, 
ahem,  included).  Many  tantalizing 
hints  were  dropped  about  the  future 
of  the  Amiga,  so  I'll  end  by  passing 
on  a  few.  How  would  you  like  to  see 
Unix  on  the  Amiga?  How  about  a 
640  X  400  noninterlaced  display? 
There  are  lots  of  surprises  on  the 
horizon.  By  the  way.  Workbench  1 .3 
appears  mighty  interesting.  ® 
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New  from  COMPUTE! 

War  game  simulations  come  alive  with  two  new  books  from  COMPUTE!.  Whetlner  you're  dodging  torpedoes, 
bombing  targets,  or  planning  to  defend  against  an  enemy  invasion,  these  books  contain  the  hints  and  strategies 
you  need  for  a  successful  defense — and  offense.  There's  historical  information  on  actual  battles,  technical  infor- 
mation about  your  war  machines,  plus  many  tips  on  using  hidden  features  of  the  software. 


The  Electronic  Battlefield 

Bob  Guerra 

ISBN  0-87455-1 17-X 

$12,95 


T 


I 
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This  comprehensive  reference  book  on  coHnputer  war  games — how  to  play  them  and  what  strategies  to  use — will  find  a  place  on  thousands  of 
computer  owners'  desks.  Whether  acting  as  fierce  opponent  or  impartial  referee,  the  computer  is  perfect  for  war  game  play.  The  Electronic 
Battlefield  offers  general  and  specific  hints,  tips,  and  play  techniques  for  all  the  most  popular  computer  games.  Filled  with  detailed  information 
on  such  games  as  S//enf  Service,  Roadwar  2000,  Field  of  Fire,  Arctic  Fox,  and  Balance  of  Power,  this  book  will  appeal  to  players  of  all  ages 
and  levels  of  experience.  AJso  included  in  this  tiook  are  undocumented  features  of  games  like  F-15  Strite  Eagle,  command  reference  charts  for 
many  of  the  games,  and  even  tips  from  the  game  designers.  The  perfect  resource  for  any  electronic  war  gamer. 


Sub  Commander:  Tactics  and  Strategy  for  WWII  Submarine  Simulations 

Richard  G.  Sheffield 
ISBN  0-87455-127-7 
$12.95 


*         *         * 


SUBMARINE 
COMMANDER 


HCM^pp  c  zMirmtB 


Run  silent,  run  deep.  This  hands-on  approach  to  popular  submarine  simulators  like  Silent  Service,  Gato,  Sub  Battle,  and  Up  Periscope  puts 
you  at  the  periscope  of  an  American  boat  in  World  War  tl.  This  collection  of  undersea  warfare  tactics  and  strategies  will  appeal  to  every  simu- 
lator captain.  Information  about  actual  Warld  VWar  II  submarines,  crews,  and  captains  provides  an  excellent  introduction.  Detailed  accounts  of 
real  submarine  battles  illustrate  \rays  you  can  pilot  your  own  electronic  sub.  The  heart  of  the  book  outlines  offensive  and  defensive  tactics  and 
maneuvers  that  bring  you  into  torpedo  range  and  get  you  out  again  safely.  Learn  how  to  decimate  heavily  escorted  convoys,  how  to  shoot 
"down  the  throat"  at  a  charging  destroyer,  and  how  to  weather  determined-depth  charge  attacks.  You'll  be  able  to  immediately  apply  these 

techniques  and  tricks  to  your  own  submarine  software. 

Note:  The  books  do  not  include  any  of  the  software  products  mentioned. 


To  order  COMPUTE!  books,  call  toll  free  1-800-346-6767  (in  NY 
212-887-8525)  or  write  COMPUTE!  Books,  Customer  Service,  P.O. 
Box  5038,  F.D.R.  Station,  New  York,  NY  10150.  Customer  Service 
hours  are  10:00  a.m.  to  12:30  p.m.  and  1:30  p.m.  to  3:30  p.m.  EST 
Monday  through  Friday. 


Please  add  $2.00  per  book  shipping  and  handling.  NO  residents 
add  5  percent  sales  tax  and  NY  residents  add  8.25  percent  sales 
tax.  Please  allow  4-6  weeks  for  delivery. 

COMPUTE!  books  are  available  outside  the  United  States  from 
subsidiaries  of  McGraw-Hill  International  Book  Company, 


COMPUTE!  PublicationsJncS 


A  Capifol  Citi0S/ABC.  inc   Company 


We  Won't  Be  UNDERSOLD 

•  On  Hems  mnrked  "fJo  One  Sells  This For  Less".  Copy  of  valid  ad  required. 

15  Day  Free  Trial  •  90  Pay  Immediate  Replacement  Policy  *  Prices  Expire  1-30-88 


Super  Hi-Speed  Printer 

200  CPS  Star  Micronics  LV-2010  With  Crisp  Near  Letter  Quality 

Sale  $40095 


{Add  $10,00  shipping.*) 


List  $499 


No  One  Sells  This  Printer  For  Less! 


•  200  CPS  Draft  -  45  CPS  Near  Letter  Quality 

•  Serial  Impact  Dot  Matrix 

•  IBM  Compatible 

•  Continous  Underline 

•  Near  Letter  Quality  Mode 

•  Ultra  High  Resolution  Bit  Image  Graphics 

•  Pull  Tractor  &  Automatic  Single  Sheet  Loading 

•  Standard  Serial  &  Centronics  Parallel  Ports 


Ultra  Hi-Speed  (300  CPS)  Printer 

300  CPS  Draft  •  50  CPS  NLQ  •  With  Color  Printing  Capabilities 


No  One  Sells  This  Printer  For  Less! 


Sale 


$40095 

^^B     ^^      ^^       List  $499 


(Add  $10.00  shipping,* 

•  300  CPS  Draft  -  50  CPS  Near  Letter  Quality 

•  Front  Panel  Margin  Setting 

•  Download  Character  Setting 

•  Epson/IBM  Modes  •  lOK  Buffer 

•  Variety  Of  Characters  &  Graphics 

•  Parallel  &  Serial  Interface  Ports 

•  Auto  Paper  Load  &  Ejection  •  Bottom  Feed 

•  Optional  7-Color  Printing  Kit. . .  Sale  $99.95 


(3 1 2)  382-5050  ^  computer  mkct 

1^^   ■  ^f    ^r^P^     ir^ir^    K 21  22292  N.  Pepper  Road 


Call 


We  Love  Our  Customers! 


Mail 


. Pepper 
Barrington,  IL.  60010 


1st  In  Price,  Support,  &  Warranty 

15  Day  Free  Trial  •  90  Day  Immediate  Replacement  Policy  •  Prices  Expire  1-30>88 


Genuine  IBM®  8V2"  Printer 

SVa"  Letter  Size  •  80  Column  •  Limited  Quantities 

Sale  $JIA95 

(Add  $7,50  shipping,*) 


^49 


List  $199 


No  One  Sells  This  Printer  For  Less! 


Unbelievable  Low  Price 
Advanced  Dot  Matrix  -  Heat  Transfer 
Upper  &  Lower  Case  (With  True  Lower  Descenders) 
Underline  •  Enlarged 

Graphics  With  Commodore,  Apple  &  Atari  Interfaces 
Ready  to  Hook  Up  To  Serial  Port  Of  IBM®  PCjr 
Low  Cost  Adapters  For  IBM®,  Apple,  Commodore, 
Laser,  &  Atari  Computers 


22  CPS  Daisy  Wheel  Printer 

13"  Daisy  Wheel  Printer  With  True  Letter  Quality 

Sale  $00^5 


(Add  $10,00  shipping.* 


List  $499 


No  One  Sells  This  Printer  For  Less! 


•  Daisy  Wheel  Printing  With  True  Letter  Quality 

•  22  CPS,  AAA  Text 

•  Below  Wholesale  Cost 

•  13"  Wide  Carriage 

•  Both  Daisy  Print  Wheel  &  Ribbons  Compatible 
with  Diablo^*'  &  Qume® 

•  Single  Sheet  or  Continuous  Feed 

•  Parallel  Centronics  Port 


Isale  J 


COMPUTER  DIRECT  (A  Division  of  PROTEaO) 

22292  N.  Pepper  Road,  Barrington.  IL.  60010 

Call  (312)  382-5050  To  Order 

We  Love  Our  Customers! 


•  llllnoh  r«tidvi)i  odd  A'/,  %  >(il«  rax.  All  ordan  muit  b*  In  U.S.  Dollan.  W*  ihip  to  oil 
polnli  in  th«  U.S.,  CAh4A0A.  PUERTO  RICO  X  APO-FPO.  PIhh  coll  lor  chargn  outilda 
contlnAntol  U.S.  orC.O.D,  MAILOWHRt  •nclo««  cathl*r  cS*ck.  moo*y  ofdar  or  pononol 
ch*ck.  Allow  1 4  days  doMvvry ,  2  to  7  for  phon*  ordtrt  and  I  cioy  axpf *u  moil.  Pticmt  end 
ova  H  obi  I  i  ty  iubi*c1  Tij  c  ho  ng«  without  notlco.  (Moniloti  only  thipp*d  In  contlnofilol  U.S.) 
VISA  -^  MASTERCARD  —  C.O.D. 


Telecomputing  Today 


Arlan  R.  Levitan 


Electronic  Funnies 


Late  word  from  Washington  has  it 
that  the  Federal  Communications 
Commission  may  reconsider  the 
timing  of  its  decision  to  impose  lo- 
cal telephone  system  access  charges 
on  commercial  information  services 
in  January  1988.  Over  the  last  few 
months,  the  FCC  has  been  deluged 
with  protests  opposing  the  sur- 
charges. According  to  Tymnet,  a 
provider  of  packet-switching  ser- 
vices, of  the  3,964  letters  filed  by 
September  14,  only  5  were  in  favor 
of  the  FCC  ruling. 

Even  if  such  access  charges  are 
not  eventually  adopted,  it  appears 
that  in  the  near  future  telephone 
line.e  may  no  longer  be  the  venue  of 
choice  for  information  providers. 
The  speed  and  cost  limitations  of 
the  switched  public  network  are 
has  ening  the  introduction  of  alter- 
native high-speed  information  de- 
livery systems. 

Electronic  Kewsletters 

Anyone  who  has  perused  a  local  or 
national  newspaper  knows  that 
news  is  big  business.  Online  ver- 
sions of  newspapers  and  magazines 
have  been  available  from  many 
commercial  information  services 
for  a  number  of  years,  but  their 
popularity  has  been  limited.  The 
sheer  bulk  of  data  in  most  printed 
publications  has  required  that  the 
content  of  onhne  editions  be  se- 
verely abbreviated  by  either  con- 
densing or  deleting  material.  In 
shortened  form,  downloading  the 
contents  of  a  periodical  is  still  an 
expensive  proposition,  due  to  the 
cost  of  connect  time  and  the  unsuit- 
ability  of  the  information  service's 
present  delivery  system  for  tradi- 
tional advertising. 

The  most  successful  news- 
related  communications  venture  to 
date  has  been  the  NewsNet  infor- 
mation service,  which  has  stayed 
afloat  in  spite  of  high  connect-time 
rates  by  concentrating  on  carrying 


electronic  versions  of  pricey  "insid- 
er" newsletters.  NewsNet  requires 
that  its  subscribers  absorb  both  the 
cost  of  the  regular  subscription  to 
the  newsletters  they  wish  to  access, 
and  the  connect-time  charges  in- 
curred in  downloading  the  complete 
text.  The  system  works,  since  the 
amount  of  time  to  electronically 
download  a  newsletter  via  modem 
is  relatively  short,  and  NewsNet 
subscribers  place  a  high  value  on 
getting  their  information  immedi- 
ately upon  release,  rather  than  wait- 
ing several  days  for  the  U.S.  Snail  or 
paying  for  overnight  delivery. 

Text  From  The  TV 

So  what  about  those  of  us  whose 
financial  well-being  is  not  directly 
tied  to  the  price  of  Brazilian  coffee 
or  hog  bellies?  In  the  near  future,  a 
system  called  Videotrax  from  Alpha 
fJlicrosystems  may  allow  most 
computer  owners  to  receive  news- 
papers, magazines,  catalogs,  and  a 
veritable  cornucopia  of  information 
via  television.  Videotrax  allows 
data  to  be  overlayed  on  regular 
television  signals  and  sent  at  the 
rate  of  82,000  bits  per  second, 
which  works  out  to  about  two  and  a 
half  pages  of  text  per  second. 

The  system  was  demonstrated 
live  during  a  Public  Broadcasting 
Systems  science  special  last  year. 
The  PBS  show  was  sponsored  by 
the  NASA  Lewis  Research  Center 
and  Michigan  State  University's 
Comm.  Tech  Lab  and  PBS-affiliate 
WKAR-TV.  Entitled,  "Science  Fic- 
tion— Science  Fact,"  the  show  was 
broadcast  on  October  22  and  fea- 
tured wide-ranging  discussions  by 
noted  speculative  fiction  authors 
and  scientific  researchers. 

A  15-page  article,  "Reflections 
on  a  Crystal  Ball:  Science  Fiction  vs. 
Science  Fact,"  was  sent  to  multiple 
Videotrax-equipped  sites  as  part  of 
the  broadcast.  During  the  six  sec- 
onds it  took  to  accomplish  the  task. 


the  visual  patterns  associated  with 
the  data  were  displayed  on  viewers' 
television  screens. 

Systems  such  as  Videotrax 
may  well  bust  the  electronic  distri- 
bution of  news  materials  and  other 
information  wide  open.  Hardware 
developers  are  already  talking 
about  programmable  Videotrax- 
like  units  that  will  act  much  like 
VCRs.  Information  will  be  broad- 
cast on  a  regular  basis,  daily  (or 
several  times  a  day)  for  newspa- 
pers, and  weekly  or  monthly  for 
other  periodicals.  Users  will  pro- 
gram the  unit  for  the  information 
they  desire,  and  the  information 
will  be  downloaded  when  broadcast. 

While  such  systems  are  essen- 
tially paperless,  fans  of  the  Sunday 
funnies  need  not  despair,  since 
both  graphics  and  text  can  be  trans- 
mitted. The  recent  emergence  of 
computers  with  graphics  abilities 
well-suited  to  displaying  photo- 
graphic material  (like  the  Amiga, 
Mac  II,  and  IBM  PS/2s)  will  allow 
pictures  to  be  included  in  electronic 
newspapers  and  will  keep  overall 
cost  down  by  permitting  traditional 
pictorial  advertising. 

Electronic  newspapers  do  have 
their  down  side,  however.  Imagine 
thousands  of  bleary-eyed  yuppies 
lugging  their  laptop  computers  to 
local  pancake  houses  and  delis  for 
Sunday  morning  breakfast.  You 
can't  wrap  fish  in  a  computer  moni- 
tor, and  my  parakeet,  Babhage,  vviil 
sorely  miss  the  full  text  of  White 
House  press  briefings.  © 


70     COMPOTEI     JonuOfy  1988 


DDi]©[r 
\P\r©m 


Y(Q)aar 

DTfDDiJilDDi]^ 


COMPUTEI's  Apple  llGS  Machine  Language 
tor  Beginners 

Roger  Wagner  $19.95 

The  latest  in  o  series  of  Introductory  ma- 
chine language  books,  COMPUTEI's  Apple 
lies  Machine  Language  for  Beginners  is  a 
clear  and  concise  tutorial  to  learning  the 
llGS's  native  language.  Written  by  noted 
Apple  columnist  Roger  Wagner,  this  book  in- 
cludes many  programming  examples  and 
detailed  explanations  that  make  learning 
65816  machine  language  easy.  For  begin- 
ning and  intermediate  machine  language 
programmers  as  well  as  those  who  know  an- 
other machine  language  and  want  to  move 
up  to  this  fast  16-bit  language,  A  COMPUTE! 
Library  Selection, 
ISBN  0-87456-097-1 

Mastering  the  Apple  lies  Toolbox 

Dan  Gookin  and  Morgan  Davis  $19,95 

The  Apple  lies  merges  the  consumer  soft- 
ware base  of  the  popular  Apple  il  machines 
with  the  advanced  graphics  and  intuitive 
interface  of  the  Macintosh.  The  Toolbox  of 
the  llGS  contains  the  routines  which  help  the 
program  access  the  powerful  graphics  and 
sound  features  built  into  this  computer. 
Mastering  the  Apple  lies  Toolbox  sorts  the 
volumes  of  information  and  documentation 
about  the  Toolbox  into  a  concise  and  prac- 
tical reference  that  makes  the  Toolbox  far 
easier  to  use.  Some  of  the  topics  covered 
include  how  to  make  Toolbox  calls,  memory 
management,  disk  use,  graphics,  event 
management,  sound,  and  much  more.  This 
book  is  ideal  for  the  intermediate-  to 
advanced-level  C  or  machine  language 
programmer,  A  COMPUTE!  Library  Selection. 
ISBN  0-87455-1 20-X 


To  order  COMPUTE!  books,  call  toll  free 
1-800-346-6767  (in  NY  212-887-8525)  or  write 
COMPUTEI  Books,  Customer  Service,  P.O.  Box 
5038,  F.D.R.  Station,  New  York,  NY  10150. 
Customer  Service  hours  are  10:00  a.m.  to  12:30 
p.m.  and  1:30  p.m.  to  3:00  p.m.  Eastern  time, 
Monday  through  Frldav.  Please  odd  $2.00  per 
book  shipping  and  handling.  NC  residents  add  5 
percent  sales  tax  and  NY  residents  odd  8.25  per- 
cent sales  tax.  Please  allow  4-6  weeks  for  delivery. 
COMPUTEI  books  are  available  outside  the  United 
States  from  subsidiaries  of  McGraw-Hill  Inter- 
national Book  Company. 


0 


COMPUTE!  brings  you  two  new  books  to  help  you 
access  the  power  and  versatility  of  your  Apple  llGS, 
You'll  find  in-depth  instructions  for  machine  language 
programming  as  well  as  numerous  programming 
examples,  explanations  on  using  the  Toolbox,  and 
ways  to  take  advantage  of  the  special  graphics  and 
sound  features  of  the  llGS,  Plus,  like  all  of  COMPUTEI's 
books,  the  tutorials  are  clear,  easy  to  understand,  and 
the  programs  are  fuily  tested. 


COMPUTEI  Publicationsjnc.® 

One  of  \he  ABC  Consume:  Maoazlnes,  Inc.  ^^^^ 


One  of  the  ABC  Consume:  Magazines,  Inc. 
A  Coplfol  Cllies/ABC,  Inc.  Componv 


Lyco  Computer 


Marketing  &  Consultants 


CHIP 


PERSONAL 
COMPUTER 


100%  IBM 


(Green,  amber 

&  color  monitors 

available) 


AATARr 

520  ST-FM 
Color  System 

$799^5 


COMMODORE 

128  D  System 


$439 

Commodore 
I26D  Plus 
Thomson  4120 
Monitor 
$659.95 


AATARI 

1040  ST 
Color  System 


PC 

COMPATIBLE 

HARDWARE 

PC  5V<0riva  $119 

MS  DOS  +  Basic  Soft $59 

BCM  12G  Gr.  Monitor S79 

BCM  12A  Am.  Monitor $89 

BCM  UC  Color  RGB  Monitor $269 

BCC  CG  Color  Card  $94.99 

Avaiex  Graphics  Card $169 

Zm^kertxjard  $CALL 

lomege  Bernoulli  SCALL 

Hercules SCALL 

AST  $CALL 


CHIP  special 


•  Blue  Chip 
Personal  Computer 

•  Seagate  20  Meg 
Hard  Drive 


$749 


95 


(Hart  drive  must 
be  insiaJled) 


HARD 
DRIVES 


(^Seagate 

20  meg  kH  S269.95' 

30  meg  kit  S299.95- 

40megktl  S«9.95' 

'Drives  include  controller 

40  meg  w/o  controller  S42S.95 

COMMODORE 

HARDWARE 

1541  C  Disk  Drive $175.95 

1571  Disk  Drive $215.95 

15B1  Disk  Drive SLOWEST 

Indus  GT  C-64  Drive S169.95 

Blue  Chip  MC  Drive  $139.95 

Blue  Chip  C  12B  Drive $195.95 

1802C  Monitor $189.95 

2002  Monitor  $239.95 

1901  Monilor  $CALL 

64  C  Computer $169.95 

1280  Compoter/Drive  $439.95 

1670  Modem  SCAU. 

C-1351  Mouse $32.95 

1700  HAM  $109.95 

C-1750  RAM  $169.95 

1764  HAM  064  S124.95 


BLUE  CHIP  PC 


•  Double  Floppy 
System 

•  Second  Drive  + 
Installation 
Kit  Included 

^  $57995 


COMMODORE  64c 

Computer 


AATARI™-..  AATARr 


520  ST  FM  Mono  $659.95 

520  ST  FM  Cobr  $799.95 

1040  ST  Mono  $779,95 

1040  ST  Color $925.95 

130XE  Computer S125.9S 

SX5S1  Drive $179.95 

SF  314  Disk  Drive $199-95 

SF  354  Disk  Drive $11995 

Indus  GT  Atari  Drive  $175.95 

SHD  204  20  MEG  Drive  $569.95 

XM301  Modem $42.95 

SX212  Modem S89.95 

GTS  too  (3.5-  DSDD  ST) $195.95 


520  ST-FM 

Monochrome 

System 


$925'' 

1-800-233-8760 


Internal 

drive 

Jnclucled 


;:i^ 


Price  Guarantee 

Since  1981,  we  have  led  the  industry  by 
continuing  to  offer  the  lowest  national 
prices  wfiile  providing  quality  sen/ice.  Many 
companies  have  come  and  gone  trying  1o 
imitate  our  quality  and  service,  if  by  some  ? 

oversight  we  do  not  have  the  lowest  prices  V 

advertised  on  the  products  you  desire,  ^ 

then  we  would  appreciate  the  opportunity  £ 

to  rectify  this  oversight.  ? 


New  1080i  Model  II 


Now  150  cps 
Draft  Mode 
NLQ  Mode 
Friction  &  Tractor 
Feed 

2- Year  Warranty  # 

$159^^ 


Panasonic 

W80\  Modem 


Monitors 


TTiomson: 

230  Amber  TTUir $85 

450  Amber  myiS" $129.95 

4120  CGA  S199.95 

4160  CGA  S269.95 

4460  EGA $319.95 

4376  UltraSean  $459.95 

Zenith: 

ZVM  1220 S89 

ZVM  1230 S69 


eiu«  CMp; 

BCM  12"  Green  TTL S79 

BCM  12- Amber  TTL SS9 

BCM  14"  Color  $259.95 

NEC: 

Multisync  S549 

Save  S90  over  NEC  Multisync 

wRh  Tlwrnson  4375  UltraScsn 

$459.95 


Wide  Carriage  Special 


Modems 


THOMSONS  *"*'"" 

■"**.       '^      ^     12001  PC  Card  $99 

4120  Monitor  i2oohcMo<iom 599.95 

.14-RGBI-video  2400 S219 

composite'analog  Z-tOOi  PC  Card  SCAIX 

■  Compatible  with  IBM                         HavH: 
andCommoaore  __,  _^  .  _  Smartmodem  300 S149.95 

*Sdudef  "'^Ql  QQ95smartmodem1200 S285.95 

^  I  WW         Smartmodem  2400 $425.95 


Great  Performance 
Great  Price 


IL 


f^^ 


wicranici'inc 


NX-10 


•  120  cps  Draft 

•  EZ  Front  Panel 
Selection 

•  NLQ  Mode 


SP  180Ai 

•  100  cps  draft 

•  20  cps  NLQ 

•  direct  connect 
for  Commodore 


$124 


95  ,*»rs3^ 


PRINTERS 


SEIKOSHA 

SP  leOAl  $124.95 

SP  180VC  $124.95 

SP  1000VC   S136.9S 

SP  IZOOVC  $144.95 

SP  I200Ai  $155.95 

SP  1200AS  RS232  $155.95 

SL  80Ai $295.95 

MPiaOOAi S269.95 

MPS300AI $375.95 

BP5420Ai   $879.95 

SP  Series  Ribbon $7.95 

SK3000  Ai  $349 

SK300S  AI  $429 

BROTHER 

M11D9   , S195 

Ml  409   $299 

M1S09   $365 

M1709   S475 

Twinwrtler  6  Dot  &  Daisy S899 

M1724L  $CALL 

HR20  S339 

HR40  $569 

HR60  $709.95 


NP-10  $134.95 

NX-10  $149.95 

NX-IOC  wrtntertace $165.95 

NL-10 $199.95 

NX-15  $289.95 

ND-10  $259.95 

ND-15  $375.95 

NR-15  $409.95 

NB-1S  24  Pin $699.95 

rJB24-10  24  Pin S409  95 

NB24-15  24  Pin S549.95 

#CITIZEN 

120  D S1S9.95 

1B0D $173.95 

MSP-10  $259.95 

MSP-40  $289.95 

MSP-15  $324.95 

MSP-50  $359.95 

MSP-45  $425.95 

MSP-55  $459.95 

Premiere  35 $464.95 

Tribute  224  $624.95 


EPSON 

LX800  S175.95 

FXB6E  $289.95 

FX286E   $429.95 

EX800 $374.95 

EX1000 $509.95 

LQ800 $369.95 

LQ1000 $549.95 

LQ2500 $849.95 

GQ35O0  $LOW 

LQ850 $499.95 

LQ1050 $679.95 

OKID^TA 

Oklmate  20 $119 

Ohimato  20  wycart $179.95 

120 $189.95 

180 $219.95 

182 $229.95 

192+   S309.95 

193+  $+49.95 

292  w/lntarface $449.95 

293  w/lntertace S565.9S 

294  w/interface $819.95 

393 $955.95 


Panasonic 

10801  Model  li  $159.95 

10911  Model  II   $179.95 

10921 $295 

1592 $379 

1595 $419 

3131  $259 

3151 $399 

KXP  4450  User SCALL 

1524  24  Pin  S549.95 

SILVER  REED 

EXP  420P S199 

EXP  600P S299.95 

EXP  800P $649 

Toshiba 

321SL  ssjg 

341  SL $CALL 

P351  Model  II $949 

DIABLO 

025  $499.95 

635 $779.95 


Join  the  thousands  who  shop  Lyco  and  Save! 


We  stock  intertaclng  for  Atari.  Commodore,  Appio  and  IBM. 


SOFTWARE 


TARI'Sr  ^  COMMODORE  m  coimoboia. 


BEST  SELECTION 


^^BiR^ 


ulajor  ...  $22.95 
$22.95 

$a2.M 

$22.95 

$25.95 

_ $25.95 

$25.95 

IS $25.95 

S25.95 


$2S.9S 

$22.95 
$19.95 
$28.95 
$22.95 
$11.95 
S22.95 
SI  1.95 
$11.95 


$19.95 

skatball.   SI  9.95 

S8.95 

SI  9.96 

$19,95 

$19.95 

$16.95 

$11.95 

Bssss S22.95 

$19.95 

$19.95 

inalof $15.95 

$35.95 

S2Q.95 

$17.95 

$23.95 

$29.95 

hop S29.95 

$29.95 


Epyx: 

Create  A  Calendar $15.95 

Dastroyer $22.95 

Fasttoad $19.95 

Football $11.95 

Movie  Monster S11.95 

Su&  Battta S22.9S 

Winter  Games  $22.95 

California  Games  $22.95 

Supsf  Cycle $11.95 

Graphics  Scrapbook  ,...  $51.95 
Str.  Sports  Basketball ,  $22,95 
Wkj.'s  Great  Baseball ,  $i  1 ,95 

Summer  Games  II $22,95 

Votpol  Ulility  Kit $11.95 

Wortd  Games  $22.95 

Flratilrd: 

Cotossus  Chess  IV $19.95 

Elite $18.95 

Golden  Path  $22.95 

GutkJ  of  Tliieves $22.95 

Pawn  $22.95 

Talking  Teacher  $22.95 

Trackef  $22.95 

Starglidar  $22.95 

Sentry $22.95 

MIcfoleague: 

Microleag.  Sasebali $22.95 

General  Manager  $16.95 

Stat  Disk $13.95 

'86  Team  Disk S11.95 

Microleag.  Wfestling SNew 

MicroPro  se: 

Airtjome  Ranger SCAU. 

F-IS  Strike  Eagle  $19.85 

GunsNp $19.95 

Kennedy  Approach $13.95 

Silent  Service  $19.95 

Solo  Right  $13.95 

Top  Gunner $13.95 

Orlfltn: 

Autoduel  $28.95 

Ultima  III K2,95 

Ultima  IV $33,95 

Moebius $22.95 

Springboard: 

Newsroom $29.95 

Certficate  Maker $29.95 

Clip  Art  Vol.  #1  S17.95 

Dip  Art  Vol.  #2 $23.95 

Clip  Art  Vol.  #3 $17.95 

Graphics  Expander  $21.95 

Strategic  Simulations: 

GemsirxiB  Healer $16.95 

Gettysburg $33.95 

Kampfgruppe $33.95 

Ptiantasie  II  $22.95 

Phantasie  III  $22.95 

Ring  of  Zelfin $22.95 

Road  War  2000 $22,95 

Shard  of  Spring $22.95 

Wizards  Crown $22.95 

Wat  in  the  S.  Pacific  ...  S33.95 

Wargame  Cofistr $16.95 

Battlecniiser  $33.95 

Gematone  Warrior 57.95 

Battle  0)  Antetiem $28.95 

Cofcmial  Conquest .......  S22.9S 

Computef  Ambush  $33.95 

B-24 $19.95 

Sublogic: 

Rlgtit  Simulatof  II $31.49 

Jet  Simulalor  $24.95 

Night  Mission  PinbaK  ...  $18.95 

Scenery  Disk  l-fi $12.95 

Tlnwworiu: 

Partner  064 $24.95 

Partner  128  .,,$39,95 

Swift  Cak:  128 $29.95 

Wordwriter  128 $29.95 


Unison  Wortd: 

Art  Gatleiy  1  or  2  $14.95 

Prim  Master $17.95 


Upppkz 


Access: 

Triple  Pack  $11.95 

World  Class  Leader 

Board $23.95 

Famous  Courses S1 1.95 

Actlvlslon: 

ZoritTrikigy  $39.95 

Game  Maker  $29.95 

Leather  Goddesses $22.95 

Temi  Paper  $29.95 

Champ.  Basebail $22.95 

Champ.  Basketball  $22.95 

Champonstiip  Go^ $New 

GFL  Football  $22.95 

Top  Fool  aiminator $19.95 

Broderfaund: 

Airhearl $22.95 

Print  Shop ..,.  $26,95 

Print  Shop  Comp $22.95 

Carmen  S.  Oiego  (USA)..S22.95 

On  Balance  $56.95 

Bank  Si  Writer  +  $44.95 

Epyi: 

Create  A  Calendar $15.95 

Dostxoyor $22.95 

Movie  Monster $11.95 

St.  Spoils  Basketball ,.,  $22,95 
Sub  Battle  Simulator  ...  $22.95 

Winter  Games  $22.95 

Wortd  Games $22.95 

Wfestling  $22.95 

Rreblrtt: 

Colosaus  tV  Chess $22.95 

Elite $19,95 

TliePawn $25,95 

Siarglkler $25,95 

Micro  league: 

Microleag,  Baseball $22.95 

General  Manager  $16.95 

Stat  Disk $11.95 

■86  Team  Dish $1 1.95 

MIcropross: 

Cmsade  in  Europe  $22.95 

EJedsion  in  Desert $22.95 

F-15  Strike  Eagle  $19.95 

Silonl  Seivioa  $19,95 

Strategic  Simulations: 

Battlecruiser  $33.95 

Cokinial  Conquest $22.95 

Gettysburg $33.95 

Phantasie  III  $22,96 

Realms  ot  Dartcness  ,...  $22.95 

Shard  of  Spring $22.95 

Wizards  Crown S22.95 

Eternal  Dagger $22.95 

Shiloh $NEW 

Sublogic: 

Flight  Simulator  II  $30.95 

Jet  Simulator  S24.95 

Night  Mission  Pinball ...  S21.95 

Scenery  #1-#  ea $12.95 

Unison  World: 

Art  Gallery  2 $14,95 

Pnnt  Master ..,  $19,95 


^AnKA 


Accasa: 

Leader  Board  $22,95 

Tournament  #1  $11,95 


Activislon: 

Champ,  Basi!Btbail $25,95 

Championship  Golf $22,95 

GFL  Football   $25  95 

Hacker $13,95 

Hacker  2 $22,95 

Music  Studki $27,95 

Tass  Times $22,95 

Epyx: 

ApshaiTriksgy  $11,95 

Rogue 522,95 

Winter  Games  $22,95 

World  Games  $22,95 

Flroblrd: 

Guild  of  Thieves  $25,95 

Pawn  $25,95 

Slarglider $25,95 

IMIcroprose: 

Silent  Service  $22,95 

Sublogic: 

Flight  Simulator  II  $31.49 

Jot  Simulator  $31.49 

Scenery  Disk $CALL 

Unison  Woitd: 

Print  Master $19.95 

Art  Galkjry  1  or  2  $14.95 

Fonts  &  Borders $17.95 


Accoss: 

Wid.  CI.  Loader  Board.  $27.95 

lOih  Frame $27.95 

Actlvlslon: 

Pebble  Beach  Golf $22,95 

Champ,  Bas^all $22.95 

Champ.  Basketball $22.95 

Zork  Trilogy $39.95 

Leather  Goddesses $22.95 

HoonmisI $22.95 

Broderbund: 

Ancient  Art  of  War $25.95 

Print  Shop  „ $32.95 

Print  Shop  Compan $31.95 

Graphk;  Ub.  I  or  II  $19,95 

Karateka $19,95 

Toy  Shop $22.95 

Bank  St.  Writer  +  _ $44.95 

^jyx: 

ApshaiTriksgy  S11.95 

Create  A  Calendar  $15.95 

Destroyer $22.95 

Movie  Monster $11.95 

Rogue $16.95 

St.  Sports  Basketball ...  $22,95 
Sub  Battle  Simulator  „.  $22.95 

Winter  Games $22.95 

Worid  Games  $22.95 

Firebird: 

Starglkter $25.95 

Guitd  of  Thieves $25.95 

Mtctvieagua; 

Microleag.  Baseball $22.95 

Genera!  Manager $16.95 

Stat  Disk $13.95 

■86  Team  Disk $11.95 

MIcropross; 

Conllict  in  Vietnam S22.95 

Crusade  in  Europe $22.95 

Deciskm  in  Desert $22.95 

.  F-15  Stri)<e  Eaghj  $22.95 

Silent  Service $22,95 

Gunship $27,95 

Origin: 

Ultima  I S22.9S 

Ultima  III $22.95 

Ullima  IV $33.95 


Moebius _.....  $33.85 

Ogre $16.95 

Strategic  Simulations: 

Road  War  2000 $22.95 

Kampfgmppe $33,95 

Shard  of  Spring  S22.9S 

Battle  ol  Antetiem $33.95 

Computer  Baseliall $7.95 

Gettysburg $33.95 

Wizards  Crown $22.95 

Chicliainauga  $33.95 

Subtogle: 

Jet  Simulalor  $31.49 

Scenery  Japan 517.95 

Scenery  San  Fran $17.95 

Scenery  #1 -#6  $64.95 

Right  Simulator  ..„. $34.95 

Tlmeworlia: 

Swittcalc $39.95 

Wordwriter $34.95 

Unison  World: 

Art  Gallery  2 $14.95 

News  Master  $49.95 

Print  Master  |  +  ) $29.95 

Fonts  &  Borders $17.95 


Diskettes 


5-1/4 


MixBll: 

SSDD  $7.95 

DSDO  S8.95 

Bonus: 

SSDD $5.95 

DSDD  $6.95 

SKC; 

DSDD  $6,95 

DSHD  $13.95 

Generic  DSDD  $4.95 

VariMtim: 

SSDD  $8.99 

DSDD  $11.50 

3.5 

Muell: 

SSDD  $11.50 

DSDD  $17.95 

Verbatim: 

SSDD  $14.50 

DSDD  $20.95 

SKC: 

SSDD  $11.95 

DSDD  $13.99 

Generic  SSDD $11.50 

Generic  DSDD  $12,95 


Joysticks 


Tac3  $8.95 

Tae2 $8,95 

Tao5 $11.95 

Tac  1   +  IBM/AP $17.95 

Economy  $4.49 

Slik  SBck $4.95 

Black  Max $7.95 

Boss  $10,95 

3-Way $17.95 

Battandie $14.95 

500XJ  $10.95 

500XJ-Apple/PC $21.95 

Winner  909 $19.95 

Wico  IBM/AP  $19.95 

Contriver  Joystick  Bd  ,.  $29.95 


pping  on  Prepaid  cash  orders  over  S50  in  the  Continental  US. 


Lyco  Means  Total  Service. 


AATARr 


Mark  "Mac"  Bowser, 
Sales  Manager 

I  would  personally 
like  to  thank  all  of  our 
past  customers  for 
helping  to  make  Lyco 
Computer  one  of  the 
largest  mail  order 
companies  and  a 
leader  In  the  industry. 
Also,  I  would  like  to 
extend  my  personal 
invitation  to  all  computer 
enthusiasts  who  have 
not  experienced  the 
services  that  we  provide. 
Please  call  our  trained 

sales  staff  at  our  toll  free  number  to  inquire  about  our 

diverse  product  line  and  weekly  specials. 

First  and  foremost  our  philosophy  is  to  keep  abreast 
of  the  changing  market  so  that  we  can  provide  you  with 
not  only  factory-fresh  merchandise  but  also  the  newest 
models  offered  fay  the  manufacturers  at  the  absolute  best 
possible  prices.  And  we  offer  the  widest  selection  of 
computer  hardware,  software  and  accessories. 

Feel  free  to  call  Lyco  if  you  want  to  know  more  about 
a  particular  item.  I  can't  stress  enough  that  our  toll-free 
number  is  not  just  for  orders.  Ivlany  companies  have  a 
toll-free  number  for  ordering,  but  if  you  just  want  to  ask  a 
question  about  a  product,  you  have  to  make  a  toll  call.  Not 
at  Lyco.  Our  trained  sales  staff  is  knowledgeable  about  all 
the  products  we  stock  and  is  happy  to  answer  any  questions 
you  may  have.  We  will  do  our  best  to  make  sure  that  the 
product  you  select  will  fit  your  application.  We  also  have 
Saturday  hours  —  one  more  reason  to  call  us  for  all  your 
computer  needs. 

Once  you've  placed  your  order  with  Lyco,  we  don't 
forget  about  you.  Our  friendly,  professional  customer 
service  representatives  will  find  answers  to  your  questions 

about  the  status  of  an 
order,  warranties, 
product  availability,  or 
prices. 

Lyco  Computer 
stocks  a  muitlmilllon 
dollar  inventory  of 
factory-fresh 
merchandise.  Chances 
are  we  have  exactly 
what  you  want  right  in 
our  warehouse.  And  that 
means  you'll  get  it  fast. 
In  (act,  orders  are 
normally  shipped  within 
24  hours.  Free  shipping 
on  prepaid  cash  orders 
over  $50,  and  there  is 
no  deposit  required  on 
.O.D.  orders.  Air  freight  or  UPS  Blue/Red  Label  shipping  is 
available,  too.  And  all  products  carry  the  full  manufacturers' 
warranties. 

I  can't  see  why  anyone  would  shop  anywhere  else.  Selec- 
tion from  our  huge  in-stock  inventory,  best  price,  service  that 
can't  be  beat  —  we've  got  it  all  here  at  Lyco  Computer. 
TO  ORDER,  CALL  TOLL-FREE:  1-800-233-8760 
New  PA  Wats:  1-800-233-8760 
Outside  Continental  US  Call:  1-717-494-1030 

Hours:  9AM  to  8PM,  Mon.  -  Thurs. 
9AM  to  6PM,  Friday—  10AM  to  6PM,  Saturday 

For  Customer  Service,  call  1-717-494-1670,  

9AM  to  5PM,  Mon.  -  Fri.  ,,.,,^ 

Or  write:  Lyco  Computer,  Inc.  IV^.    I 
P.O.  Box  5088,  Jersey  Shore,  PA  17740 

RlBk-Fre«  Policy:  •  full  manufacturers'  warranties  •  no  sales  tax  outside  PA 

•  prices  show  4%  cash  discount;  add  ^1%  for  credit  cards  •  APO,  FPO. 
inlernatJDnal:  add  S5  plus  3%  tor  priority  •  4-wBel(  clearance  on  personal  checks 

•  we  check  for  credit  card  theft  •  compatatnlity  rKJt  guaranteed  •  return 
authorization  required  *  price.'availebility  subject  to  change  ■  prepaid  orders  under 
$50  In  Continemal  US,  add  $3.00 

Attention  Educational  Institutions: 

L  If  you  are  not  currently  using  our 

educational  service  program,  please 
call  our  representatives  for  details. 


Access; 

Leader  Board  $22.95 

Tournament  #1  $1t,95 

TttplB  Pack  $11.95 

Acth/ltlon: 

Hacker $8.95 

HrtCh  Hikers  $13.95 

Leattwr  Goddesses $19.95 

Moonmist $19.95 

Music  Studio $19.95 

Stationfall $19.95 

Luridng  Horror $19.95 

Brodert)und: 

Print  Shop  $25.49 

Print  Shop  Compan $22.95 

Graphic  Ub.  I,  II,  III  $13.49 

Karaleka $12.95 

Banit  SI.  Writer $27.95 

Firebird: 

The  Pawn $22.95 

MIcroleague: 

Micialeag.  Baseball $22.95 

General  Manager  $16.95 

Stat  Disk $13.95 

'86  Team  Disk $11.95 

MIcroproM: 

Conflict  in  Viatram  $22,95 

F-tS  Strike  Eagle  $19.95 

Kennedy  Approach $13.95 

Silent  Service $19.95 

Top  Gunner $13.95 

Optimized  System*: 

Action  $44.95 

Actkm  Tool  K» $16.95 

Basic  XE $44.95 

Basic  XL $33.95 

Basic  XL  Tool  Kit  $16.95 

Mac  65  $44.95 

Mac  65  Tool  Kit $16.95 

Strategic  Slmulallons: 

Battle  of  AntBliem $28.95 

BatllecJuiser  $33.95 

Nam $22.95 

Phantasie $22.95 

Waigame  Construe SI  6.95 

Warship $33.95 

Wliafds  Crovm $22.95 

Subioglc: 

Flighl  Simulator  II  $31.49 

NiaW  Misston  Pinball ...  $18.95 

Scenery  #1-#6  ea $12.95 

Scenery  #7 , S14.95 


A  ATARI"  Sr 


Access: 

Leader  Board  $22.95 

Tournament  #1  $11.95 

lOttt  Frame S22.95 

Activlslon: 

Champion.  Baseball  ....  $22.95 

Champion.  Basketball .  $22.95 

Ctiampionship  Golf $New 

GPL  Football  S22.9S 

Hacker  2 $22.95 

Leather  Goddesses S22.95 

Moonmist $22.95 

Music  Studio $27.95 

Paint  Woriis $22.95 

Shanghai  $22.95 

Bureaucracy  $22.95 

Slationfall $22.95 

Lurtang  Honor $22.95 

Top  Fuel $19.95 

Broderiiund: 

Karsteka $CALL 


Firebird; 

Pawn  

Starglidar 

Goklen  Path 
Guild  of  T1iie\ 
Tracker  


Beiltsley  Sof 

Geos 

Deskpak  I  .... 

Fontpak  I  

Geodax 

Geofile 

Writers  Worfe 
Geo  Calc 


ST  Outlook 


Philip  I.  Nelson 


Anatomy  Of  A  Desk  Accessory 


We  all  know  what  a  desk  accessory 
is.  It's  one  of  those  gadgety  little 
programs  that  lives  in  the  Desk 
menu  in  the  upper  left  corner  of  the 
screen.  Whether  you're  running  a 
GEM  application  or  just  noodling 
around  on  the  desktop,  accessories 
are  ready  and  waiting  to  be  used. 
This  feature  is  not  the  same  as  true 
multitasking,  since  an  accessory 
completely  freezes  the  main  appli- 
cation while  it's  active,  and  you 
can't  have  more  than  six  accessories 
in  memory  at  once.  But  it's  a  work- 
able, practical  scheme;  and  as  a  re- 
sult, nearly  every  ST  owner  has  a 
collection  of  favorite  desk 
accessories. 

An  accessory  sounds  like  a 
flashy  item,  and  it  is,  but  you  can 
create  one  with  surprising  ease.  The 
program  listing  with  this  article 
contains  C  source  code  for  a  com- 
plete, fully  functional  desk  accesso- 
ry. It  compiles  exactly  as  listed  with 
Megamax  C.  The  code  may  require 
minor  tweaking  for  other  compil- 
ers, specifically  in  the  function 
named  Assembly,  which  contains 
two  in-line  assembly  language  in- 
structions. Don't  feel  bashful  about 
modifying  the  program  or  adding 
your  own  code.  It's  provided  as  a 
skeleton — a  minimal  working  ex- 
ample that  you  can  flesh  out  to 
create  an  accessory  of  your  own. 

GEM  Messages 

Apart  from  the  fact  that  they're  use- 
ful, accessories  provide  an  occasion 
for  investigating  the  shadowy  do- 
main of  GEM  messages.  Like  the 
contents  of  a  diplomat's  briefcase, 
GEM  messages  have  great  impor- 
tance, although  they  seldom  see  the 
light  of  day. 

Messages  are  important  be- 
cause GEM  can  never  be  sure 
which  process  may  be  running  at  a 
given  moment.  Right  now  you  may 
be  running  a  word  processor,  but 
two  minutes  later  you  might  pull 


down  the  Control  Panel  accessory 
to  adjust  the  keyboard  speed,  and 
five  minutes  after  that  you  might 
call  the  Install  Printer  accessory  to 
prepare  for  printing  a  document. 

Some  form  of  interprocess 
communication  is  needed  to  keep 
processes  from  tangling  one  anoth- 
er and  bringing  down  the  whole 
system.  The  actual  work  of  sched- 
uling applications — deciding  who 
gets  to  run  and  who  doesn't — is 
done  by  GEM  itself.  But  it's  the  job 
of  each  individual  process  to  avoid 
tripping  others. 

An  accessory's  role  is  not  unlike 
that  of  a  minor  actor  in  a  play.  You 
must  be  onstage  and  paying  con- 
stant attention,  ready  to  spring  into 
life  and  speak  your  piece  on  cue.  But 
you  must  never  leap  onto  center 
stage  at  the  wrong  moment,  just 
when  the  star  of  the  production  is 
about  to  begin  a  soliloquy. 

Checking  In 

Fortunately,  like  the  bit  player  in  our 
fictional  drama,  a  desk  accessory  has 
only  a  few  cues  to  listen  for.  To  learn 
what  they  are,  let's  take  a  brisk  walk 
through  the  program  listing. 

The  very  first  call  in  the  pro- 
gram is  to  a  function  called  appl^init. 
As  its  name  suggests,  appLinit  ini- 
tializes the  application,  saying,  in 
effect,  "Here  I  am,  GEM."  Until 
GEM  knows  that  you  exist,  you 
can't  create  any  graphics  with  VDI 
functions,  or  call  any  AES  functions 
to  create  dialog  boxes,  menus,  and 
similar  GEM  features. 

The  program  next  calls  a  func- 
tion named  menu—vegister,  which, 
for  a  desk  accessory,  is  the  equiva- 
lent of  registering  at  a  hotel.  After 
this  call,  your  accessory  has  an  offi- 
cial place  in  the  Desk  menu,  includ- 
ing a  unique  menu  ID  number  to 
distinguish  it  from  other  accessories 
in  that  menu.  In  plain  English, 
menu_register  says  something  like, 
"I  want  to  be  a  desk  accessory.  Sign 
me  up  and  give  me  a  badge." 


Don't  Wake  Me  Unless. . . 

Once  checked  in,  every  good  acces- 
sory is  expected  to  go  to  sleep  until 
awakened.  But  like  a  weary  hotel 
guest  who  expects  an  important  call, 
the  accessory  first  tells  GEM  what 
messages  it  considers  important 
enough  to  rouse  it  from  its  slumber. 

The  next  function  call  in  the 
program  has  two  purposes.  It  both 
informs  GEM  which  messages  we 
want  to  hear  about,  and  allows  us 
to  slip  into  the  background.  The 
name  of  this  function  is  evnt^multi 
and  it  allows  an  application  to 
watch  for  as  many  as  six  distinct 
events,  simultaneously. 

This  call  is  complex  because 
evni_multi  allows  for  so  many  dif- 
ferent possibilities.  Our  accessory, 
however,  cares  about  only  one  of 
those  possibilities — the  opening  of 
a  desk  accessory — so  most  of  the 
evnt_multi  items  are  filled  with 
dummy  values  or  addresses. 

The  first  parameter  we  pass  to 
evnt__mulrt  is  a  manifest  constant 
named  MU_jVI£SAG.  To  GEM,  this 
value  says,  "Send  me  a  message 
whenever  somebody  touches  the 
Desk  menu."  If  we  had  been  interest- 
ed in  other  events,  such  as  keyboard 
clicks  or  mouse  activity,  the  values 
representing  those  events  would 
have  been  added  to  this  parameter. 

The  other  item  of  interest  here 
is  Msg— Buffer,  a  16-byte  array.  By 
passing  the  address  of  Msg_Buffer 
to  GEM,  we  establish  a  pigeonhole 
where  GEM  can  deposit  message 
data. 

Dreaming 

In  terms  of  program  flow,  our  code 
comes  to  a  complete  halt  here.  No 
more  program  statements  are  execut- 
ed until  GEM  tells  us  the  designated 
event  has  taken  place.  A  typical  ac- 
cessory spends  nearly  all  of  its  time 
in  this  peculiar,  wakeful  rest  in 
which,  as  the  doctor  said  of  the 
sleepwalking  Lady  Macbeth,  it  can 
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"receive  at  once  the  benefit  of  sleep 
and  do  the  effects  of  watching."  In 
the  nneantime,  you  are  using  the 
computer  for  some  other  purpose. 

Waking  Up 

Eventually,  somebody  chooses  the 
accessory  from  the  menu.  Here's 
where  Msg_Buffer  becomes  impor- 
tant. If  someone  selects  an  accesso- 
ry— any  accessory — from  the  Desk 
menu,  then  the  value  AC— OPEN 
appears  in  Msg_Buffer[0],  the  first 
byte  of  the  Msg_Buffer  array.  And 
if  our  accessory  happens  to  be  the 
one  selected,  GEM  puts  our  menu 
ID  value  into  Msg_Buffer[4],  the 
fifth  byte. 

The  next  three  program  state- 
ments (SWITCH,  CASE,  and  IF)  test 


the  two  values  in  Msg_Buffer.  We 
could  have  combined  both  tests  into 
one  large  IF  statement,  but  that 
would  make  the  program  less  useful 
as  a  platform  for  further  develop- 
ment. You  might  write  an  accessory 
that's  interested  in  events  other  than 
AC_OPEN,  or  you  might  write  one 
that  registers  more  than  one  entry  in 
the  Desk  menu.  This  general  struc- 
ture can  accommodate  both  needs. 
(The  EMULATOR.ACC  accessory, 
by  the  way,  is  an  example  of  an 
accessory  that  registers  two  entries 
in  the  Desk  menu.) 

Assuming  we  survive  both 
tests,  it's  time  to  perform  our  ap- 
pointed mission,  whatever  that  is. 
This  accessory  is  a  demo,  so  it  plays 
a  brief,  harmless  joke  and  then  goes 


Means  an  accessory  was  opened 
Means  menu  message  event 
Address  of  the  bomb  routine  in  ROM 
GEMDOS,  XBIOS,  BIOS  definitions 


Magic  Desk  Accessory 

#define  AC_OFEN  40  /* 

#define  MU_MESAG  0x0010  /* 

#define  BOMBS  0xfc0a70  /* 

#include  <osbind.h>  /* 

extern  int  gl_apid; 
extern  long  Assemblyt ); 
char  Our_Name(  ]    =    "  Magic  Desk  "; 

char  No_No[  ]   =   "[!][  I  wish  you  I  hadn't  done  that,  ][  Bye  ]"; 
main( )  { 

int  Event,  Dummy,  Menu_ID,  MBg_Buffer[8]; 

int  conlr![12],intin[128],plsin[128],intout[128!,ptsoul[128]; 

/•  Tell  GEM  that  we  exist  */ 
appl_init( ); 

/•  Check  in  at  the  front  desk  . . .   */ 

Ment:_lD    =    menu_register(  gl_apid,  Our_Name  ); 


V 

*/ 

V 


/*  Loop  forever.  Accessories  never  terminate, 
while!  1  ) 


7 


/*  Go  to  sleep  until  an  event  of  interest  wakes  us  */ 

Event   =    evnl_muIti(MU_MESAG,  /*  We  want  menu  event  messages.  . .   •/ 

1,1,1,0,0,0,0,0,0,0,0,0,0,  /•  Lotsa  things  we  don't  care  about  •/ 
Msg_Buffer,  /*  This  is  the  address  of  our  message  pipe  buffer  */ 
0,0,&Dummy,&;Dummy,&Dummy,&Dummy,&Dummy,&Dummy);  /*  More  chaff.  */ 

/'  Check  the  contents  of  the  message  buffer  */ 

switch(  Msg_Buf  fer[0|  > 

{ 

/•  Did  someone  open  an  accessory  ?  */ 

case  AC_OPEN; 

/•  Is  the  opened  accessory  OUR  accessory  ?  */ 
if(  Msg_Buffer[4j   =  =    Menu_ID  ) 

( 

/•  Our  accessory  was  opened.  Do  something.  •/ 
form_alerK  1,  No_No  ); 

/•  Execute  this  routine  in  supervisor  mode  */ 
Supexecl  Assembly  ); 

/*  All  done.  Go  back  to  sleep  until  next  time.  */ 

}         /•  close  if  •/ 

}  /•  close  switch     */ 

}  /*  close  while     •/  )  /•  close  main  */ 

/'  This  function  calls  a  ROM  routine  to  paint  a  */ 
/*  wide  swath  of  harmless  bombs  on  your  screen,  */ 
extern  long  Assembly) )  { 
asm  { 

move.l  #39,DI 
jsr  BOMBS 


back  to  sleep. 

When  chosen,  this  accessory 
puts  up  a  simple  dialog  with  the 
form— alert  function  and  waits  for 
you  to  click  OK.  Then  it  calls  the 
ROM  routine  that  TOS  normally 
uses  to  paint  bombs  on  the  screen 
after  an  operating  system  excep- 
tion. The  bombs  look  ominous,  but 
they  don't  mean  a  thing.  The  com- 
puter works  exactly  as  usual,  and 
the  shapes  disappear  as  soon  as  you 
do  something  to  refresh  the  screen 
area  where  they  appear.  If  you're 
using  this  program  as  a  skeleton,  of 
course,  you'll  want  to  replace  the 
bomb-painting  code  with  some- 
thing useful;  delete  the  entire  func- 
tion named  Assembly  and  the 
Supexec  call  that  invokes  it. 

Immortality  And 
Subversion 

Before  leaving  this  program,  note 
one  final  singularity  of  desk  accesso- 
ries: They  run  forever.  Just  before 
the  evnt_multi  call,  is  the  statement 
while(l),  which  puts  the  program 
into  an  endless  loop.  After  the  acces- 
sory wakes  up  and  does  its  business, 
it  immediately  reenters  the  loop  and 
makes  another  evnt_multi  call, 
which  puts  it  back  to  sleep.  Once 
installed,  an  accessory  runs  continu- 
ously until  you  press  the  reset  but- 
ton or  turn  off  the  computer. 

This  everlasting  quality,  com- 
bined with  an  accessory's  ability  to 
spring  into  the  foreground  at  any 
time,  calls  for  some  extra  caution  in 
programming.  An  accessory  should 
follow  a  strict  good-neighbor  poli- 
cy, never  hogging  resources  unnec- 
essarily or  making  unanticipated, 
irrevocable  changes  in  the  environ- 
ment. If  it  allocates  memory  when 
waking  up,  it  should  release  all  that 
memory  before  going  back  to  sleep, 
and  so  on. 

Perhaps  the  most  novel  of  ac- 
cessories is  one  that  installs  itself  as 
usual  but  never  registers  in  the  Desk 
menu.  This  highly  subversive  con- 
cept may  be  best  suited  to  practical 
jokes,  but  maybe  you  can  think  of  a 
sensible  use  for  it.  Such  an  accesso- 
ry won't  have  a  menu  ID,  and  it 
won't  show  up  in  the  Desk  menu, 
but  it  shares  every  other  feature 
that  we've  described.  @ 
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The  Beginner's  Page 


C.  Regena 


Drawing  Lines 


Programming  graphics  on  your 
computer  can  be  a  lot  of  fun.  I  enjoy 
writing  graphics  programs,  but  it's  a 
difficult  topic  to  cover  in  this  column 
because  graphics  commands  differ 
so  greatly  from  one  computer  to  an- 
other. However,  this  month  I'm  go- 
ing to  describe  some  of  the  point 
and  line  drawing  commands  avail- 
able on  the  Amiga,  Apple,  eight-bit 
Atari,  Atari  ST,  Commodore  128, 
and  IBM  PC/PCjr.  Unfortunately, 
because  of  BASIC  2.0's  lack  of 
graphics  commands,  these  examples 
do  not  work  on  the  Commodore  64. 

Plotting  Points 

Think  of  your  computer's  screen  as 
a  coordinate  grid,  with  the  origin 
(coordinate  0,0)  in  the  upper-left 
corner.  When  specifying  coordi- 
nates, the  horizontal  position  (X) 
comes  first,  and  the  vertical  posi- 
tion (Y),  second.  For  example,  to 
plot  a  point  on  the  Amiga  or  IBM, 
you  use  the  command  PSET  (10,50), 
where  10  and  50  are  the  X  and  Y 
coordinates,  respectively. 

The  following  programs  dem- 
onstrate point  plotting  on  each 
machine: 

100  REM  AMIGA  VERSION* 

110  CLS* 

120  PSET  (20,50}:PSET  (30,50): 

PSET  (25,55)* 
130  FOR  X=2  2  TO  28: PSET  (X,58): 

NEXT* 

100  REM  APPLE  VERSION 

110  HQR  :  HCOLDR!"  3 

120  HPLDT  20,50!  HPLOT  30,50:  H 

PLOT  25,55 
130  FOR  X  =  22  TO  2B;  HPLDT  X,6 

0:  NEXT  X 


100  REM  EIGHT-BIT  ATARI 
110  GRAPHICS  8:CDLDR  3 
120  PLOT  20,50:PLOT  30,50 

: PLOT  25,55 
130  FOR  X=22  TO  2B:PL0T  X 

,58:NEXT  X 

100  REM  ATARI  ST  -  ST  BASIC 

110  FULLM  2:CLEARW  2 

120  LINEF  20,50,20,50 

130  LINEF  30,50,30,50 

140  LINEF  25,55,25,55 


150    FOR  X=22  TO  28 
160    LINEF  X,Se,X,5B 
170    NEXT  X 

100  REM  128  VERSION 

110  GRAPHIC  1,1 

120  DRAW  1,20, 50! DRAW  1,30,50: 

DRAW  1,25,55 
130  FOR  X=22  TO  28:DRAW  1,X,58 

:NEXT  X 


100  REM  IBM  VERSION 

110  SCREEN  IrCLS 

120  PSET  (20,50): PSET  (30,S0>!P 

SET  (25,55) 

130  FOR  X=22  TO  28:PSET  (X,5a)! 

NEXT  X 

As  you  can  see,  each  computer 
has  a  different  method  for  plotting 
points;  The  Amiga  and  IBM  use  the 
PSET  command;  the  Apple  plots 
points  with  HPLOT;  the  eight-bit 
Atari  uses  PLOT;  the  Atari  ST  must 
plot  points  by  drawing  a  line  to  and 
from  the  same  point  using  LINEF; 
and  the  128  makes  use  of  a  DRAW 
command  whose  first  parameter 
specifies  the  color  of  the  point.  In 
each  of  these  versions,  line  110  sets 
up  and  clears  the  graphics  screen 
for  output. 

Drawing  Lines 

In  many  early  versions  of  BASIC, 
point-plotting  commands  were  the 
only  way  to  draw  graphics  on  the 
screen.  This  could  become  quite  te- 
dious. Lines  had  to  be  drawn  using 
FOR-NEXT  loops  or  DATA  state- 
ments specifying  the  points  to  set. 
Essentially,  every  point  had  to  be 
specified. 

Now,  most  computers  have 
line  and  circle  commands  contain- 
ing many  options,  so  you  can  draw 
much  more  quickly.  Here's  a  short 
example  of  the  line-drawing  com- 
mands for  all  six  computers: 

100  REM  AMIGA  VERSION* 

110  CLS* 

120  X1=20:Y1=50:X2=100:Y2=75* 

130  LINE  (X1,Y1)-(X2,Y2)* 

140  X2=55:Y2=80* 

150  LINE  -(X2,Y2)* 


100  REM  APPLE  VERSION 

110  HBR  :  HCDLQR=  3 

120  XI  =  20: Yl  =  50! X2  =  100! Y2 

=    75 
130    HPLOT    XI, Yl    TO    X2,  Y2 
140    X2    =    55: Y2    =    80 
150    HPLOT    TO    X2,Y2 

100     REM     EIGHT-BIT     ATARI 
110    GRAPHICS    8:CQL0R    3 
120    Xl=20; Yl=50i X2=100: Y2 

=  75 
130     PLOT     Xl,Yl:DRAWTO     X2, 

Y2 
140     X2=55!Y2=80 
150     DRAWTO     X2,Y2 

100  REM    ATARI    ST    -   ST    BASIC 

120  FULLW    2:CLEARW   2 

130  Xl=20: Y1=50!X2=100!Y2= 

75 

140  LINEF  X1,Y1,X2,Y2 

150  X1=X2:Y1=Y2 

lfe0  X2=55:Y2=80 

170  LINEF  X1,Y1,X2,Y2 

100  REM  126  VERSION 

110  GRAPHIC  1,1 

120  X1=20:Y1=50:X2=100:Y2=75 

130  DRAW  1,X1,Y1  TO  X2,Y2 

150  X2=55:Y2=80 

160  DRAW  1  TO  X2,Y2 

100  REM  IBM  VERSION 

110  SCREEN  1:CLS 

120  X1=20:Y1=50!X2=100:Y2=75 

130  LINE  (X1,Y1)-(X2,Y2) 

140  X2=55:Y2=80 

160  LINE  -(X2,Y2) 

In  each  case,  XI  and  Yl  specify  the 
starting  point  of  a  line,  while  X2 
and  Y2  specify  the  end  point.  No- 
tice line  160:  Here  we  draw  a  line 
from  the  last  point  plotted  (100,75) 
to  coordinate  X2,Y2. 

If  you  have  a  lot  of  lines  to 
draw,  you  may  want  to  use  a  DATA 
statement  system.  For  example,  add 
the  following  lines  to  the  program 
above,  replacing  lines  where 
necessary: 
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210  DATA  50, 10t, 58, J00, t2 

, 94, il , 86, 58, 80,52, 76 

220  DATA  40,76,32,82,30,8 

e,  32,  "ye 

The  first  READ  statement  in 
Line  120  reads  N  for  the  number  of 
points  to  be  used  in  the  loop,  and 
then  XI  and  Yl  for  the  first  point 
and  X2  and  Y2  for  the  second  point. 
Lines  140-170  set  up  a  FOR-NEXT 
loop  that  for  N  times  reads  two 
numbers  for  the  coordinates  of  a 
point  (X2,Y2)  and  draws  a  line  to 
that  point.  I  shortened  the  DATA 
statements  so  they  would  be  easier 
for  you  to  read,  but  you  can  put  as 
many  numbers  as  possible  in  your 
DATA  statements  and,  thus,  use 
fewer  statements  (and  less  memo- 
ry). If  you  copy  these  data  numbers 
correctly,  you'll  see  a  treble  clef. 

Besides  points  and  lines,  most 
computers  offer  box  and  circle  com- 
mands as  well.  There  are  also  com- 
mands that  allow  you  to  fill  or  paint 
the  shapes  that  you  have  drawn. 
The  best  way  to  learn  these  com- 
mands is  to  sit  down  with  your 
computer's  manual  and  experi- 
ment. Who  knows  what  you  may 
come  up  with.  © 
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Save  on  BROWNOUT  protection! 
LINE  CONDITIONER 

keeps  power  constant  during 
voltage  sags  and  power  surges! 

Prevents  damage  and  downtime  on  computers, 
phone  systems,  cash  registers,  etc.  by  providing  full 
voltage  support  when  AC  inpu!  power  varies  up  or 
down.  Maintains  constant  output  o1  1Z0V.  Line 
Stabilizer  is  a  stepped  transformer  system  that  has 
higl)er  efliciency  than  CVT's  (constant  voltage  trans- 
formers) and  gives  lower  waveform  distortion  at  FAR 
LOWER  COST.  Built-in  spike  and  noise  suppression. 
1-Year  warranty! 
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CAPUTE! 


The  Hermit 

The  Commodore  and  Apple  ver- 
sions of  this  adventure  game  from 
the  November  issue  need  addition- 
al line  modifications.  The  Commo- 
dore changes  (Program  2,  p.  55) 
should  include  a  line  20  and  a  re- 
vised line  50,  as  follows: 

20  FOR  1=1  TO  25: PRINT: NEXT  I: 
PR1HT"(WHTJ {2  SPACESJCOPYRI 
GUT  1987  COMPUTE  1  PUBL.,  IN 
C." 

50  GET  A?!  IF  AS  =  *"'  THEN  50 

The  Apple  version  (Program  4,  p. 
56)  also  requires  a  revision  to  line 
50,  as  follows: 
so  GET  AS 

For  Tandy  1000  owners  only, 
reader  David  Davis  suggests  that 
command  line  editing  can  be  im- 
proved by  changing  line  5800  in  the 
IBM  version  to  read  as  fDllows: 

5800  UL$  =  CHR$(95):  CLS  =  CHR$(29): 
DLS  =  CHR$(8) 

The  article  with  this  program 
neglected  to  mention  that  the 
Amiga  version  requires  at  least 
512K  of  memory. 

Getting  Help 

Many  readers  who  write  to  us  con- 
cerning problems  with  published 
programs  experience  delays  in  re- 
ceiving responses  because  they  send 
their  letters  to  our  business  office  in 
New  York,  or  to  the  service  in  Des 
Moines,  Iowa  that  maintains  our 
subscriber  records.  The  customer 
service  personnel  in  New  York  han- 
dle problems  related  to  magazine 
and  disk  deliveries  and  take  orders 
for  books  and  magazine  back  issues. 
The  company  in  Iowa  handles  only 
subscriber  services  such  as  order 
processing  and  changes  of  address. 
All  inquiries  regarding  program- 
ming problems  should  be  directed  to 
our  editorial  offices: 

COMPUTE!  Publications 
P.O.  Box  5406 
Greensboro,  NC  27403 


Only  the  Greensboro  office  has  per- 
sonnel to  answer  technical  ques- 
tions. Any  letters  concerning 
programming  problems  sent  to  the 
other  addresses  will  be  forwarded 
to  the  Greensboro  office,  usually 
with  a  delay  of  several  weeks. 

Our  goal,  of  course,  is  to  pub- 
lish only  error-free  programs. 
When  errors  do  occur,  we  always 
publish  corrections  in  this  column, 
usually  within  two  to  three  months. 
We  try  to  respond  to  all  letters  con- 
cerning problems  with  programs 
published  in  COMPUTE!,  although 
the  response  may  simply  be  that  we 
know  of  no  errors  in  the  listing  as 
published.  For  fastest  service,  your 
letter  should  state  briefly  and  clearly: 

•  the  name  of  the  program  that's 
causing  problems 

•  the  issue  of  COMPUTE!  in  which 
the  program  appeared 

»  the  model  of  computer  you're 
using,  including  a  complete  list  of 
peripherals 

•  the  exact  nature  of  the  problems 
you  are  experiencing 

Include  a  complete  description  of 
your  difficulties;  simply  stating  that 
the  program  doesn't  work  is  not  of 
much  help  to  us.  Be  sure  to  mention 
any  error  messages  that  appear.  It's 
often  helpful  to  send  a  printout  of 
the  program  as  you  have  entered  it. 
We  request,  however,  that  you  not 
send  disks  or  tapes;  we  cannot  guar- 
antee that  these  will  be  returned. 

Because  of  the  huge  volume  of 
reader  mail  we  receive,  we  cannot 
respond  personally  to  general  ques- 
tions about  hardware  problems  or 
programming  techniques,  nor  can 
we  offer  assistance  in  dealing  with 
any  software  not  published  by 
COMPUTE!.  However,  such  ques- 
tions may  be  answered  in  the 
"Readers'  Feedback"  column  if 
they  are  of  broad  interest.  @ 
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Flexible  Files 


Arm  yourself  with  all  the  information 
you  need  to  make  the  IBM  PC's  BA- 
SICA  random  file  commands  even 
more  poiverfui  Your  file  structures 
will  be  limited  only  by  your  imagina- 
tion. For  the  PC  with  BASICA,  com- 
patibles with  GW-BASIC,  or  the  PCjr 
with  Cartridge  BASIC. 

After  working  with  BASICA's  ran- 
dom access  files,  you're  bound  to 
run  into  problems  which  limit  your 
file  structure.  If  you  use  a  large 
number  of  fields,  program  lines  can 
become  too  large  for  the  BASICA 
editor  to  handle.  Difficulties  can 
also  arise  if  you  want  to  allow  the 
user  to  define  the  file  structure,  and 
using  arrays  as  record  names  can  be 
a  laborious  task.  This  article  pre- 
sents techniques  that  allow  you  to 
create  a  completely  flexible  file 
structure.  Long  and  complex  pro- 
gram lines  no  longer  become  neces- 
sary. Self-modifying  file  structures 
can  be  created.  Structures  required 
by  a  database — where  different  file 
structures  are  demanded  for  each 
application — are  now  possible,  as 
well  as  structures  which  may  re- 
quire change  over  time.  In  fact,  al- 
most any  imaginable  file  structure 
is  possible. 

Random  Access  Files 

First,  let's  briefly  review  random  ac- 
cess files.  The  random  access  file  is  a 
file  in  which  a  group  of  information, 
called  a  record,  can  be  accessed  by 
its  position  in  the  file.  This  position 
is  called  its  record  number.  In  con- 
trast, a  sequential  file  can  be  ac- 
cessed only  by  starting  at  the  first 
record  and  reading  each  record  until 
the  desired  one  is  located. 

Random  access  file  structures 
are  defined  by  the  OPEN  and 
FIELD  statements.  The  OPEN 
statement  has  the  following  format: 

OPEN  "filename"  AS  #filenum 
LEN  =  reclei!gth 

This  opens  a  file  named  filename 
using  filenum  as  its  reference  num- 
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ber,  with  each  record  having  a 
length  of  reclength.  The  format  of 
the  FIELD  statement  is  as  follows: 

FIELD  #ftlenum,  fliitength  AS  stgvar,  ... 

This  statement  defines  the  structure 
of  the  file  with  the  reference  num- 
ber/flejiwm.  Here  the  first  field  has  a 
length  fldlength  which  will  be  as- 
signed to  the  string  variable  stgvar. 
A  list  of  lengths  and  string  vari- 
ables, separated  by  commas,  can 
continue  to  define  the  entire  file 
structure.  The  file  must  be  open 
before  its  fields  can  be  defined,  so 
the  OPEN  statement  must  be  used 
before  the  FIELD  statement. 

A  file  is  accessed  with  the  GET 
and  PUT  statements: 

PUT  #fileHum,  recnum 
GET  #filenum,  recnum 

PUT  writes  to  a  file,  and  GET  reads 
from  it.  The  record  number  recnum 
will  be  read  or  written  to  the  file 
filenum. 

Before  you  can  store  a  record, 
however,  it  must  be  moved  into  the 
file  buffer.  This  is  done  with  the 
LSET  or  RSET  statements.  The  for- 
mat for  these  statements  is  as 
follows; 

LSET  stgvar  =  stgdata 
RSET  stgvar  =  stgdata 

These  commands  move  the  data 
stgdata,  which  is  a  string,  into  the 
file  buffer  in  the  field  defined  by 
stgvar.  LSET  left-justifies  the  data, 
and  RSET  right-justifies  it.  Be  sure 
to  use  the  variable  names  repre- 
sented by  stgvar  only  in  combina- 
tion with  the  LSET  and  RSET 
statements  while  the  file  is  open. 
Failure  to  do  this  stops  any  data 
from  entering  the  file  buffer  for  that 
field  name. 

Defining  A  Flexible  File 

The  key  to  a  flexible  file  structure 
lies  in  the  FIELD  statement.  This 
fact  is  the  key:  All  FIELD  statements 
executed  for  a  file  are  operating  si- 
multaneously. That  is,  FIELD  state- 
ments do  not  cancel  each  other  out. 


This  suggests  that  a  record  can 
be  divided  differently  in  separate 
FIELD  statements.  Thereafter,  each 
time  the  record  is  read  in,  it  is  parti- 
tioned in  the  way  it  was  divided  by 
each  FIELD  statement. 

For  example.  Figure  1  demon- 
strates how  to  split  a  record  into 
overlapping  fields.  The  file  is 
opened  with  a  record  length  of  40 
characters.  The  first  FIELD  state- 
ment divides  the  record  into  three 
fields;  the  second,  into  five.  When 
the  GET  command  is  executed,  re- 
cord 5  is  read,  dividing  the  record 
two  ways. 

Notice  the  second  FIELD  state- 
ment. The  undesired  fields  are  as- 
signed to  DUM$.  DUM$  absorbs 
the  unwanted  characters  between 
the  desired  ones.  Also  notice  that 
the  first  FIELD  statement  tells  the 
computer  to  place  the  first  eight 
characters  into  the  variable  DATE$, 
The  second  FIELD  statement  fur- 
ther divides  the  same  date  by  tell- 
ing the  computer  to  place  the  first 
two  characters  into  the  MONTH$ 
variable,  the  backslash  into  DUM$, 
the  next  two  characters  into  DAifS, 
and  so  on.  Both  FIELD  statements 
divide  the  record  simultaneously, 
but  each  divides  it  differently. 

FIELD  Definitions 

The  length  of  a  program  line  no 
longer  limits  your  FIELD  defini- 
tions. Figure  2  demonstrates  the 
way  to  define  a  large  number  of 
fields.  Simply  define  several  fields 
and  then  start  another  statement. 
The  fields  already  defined  in  the 
previous  statement  are  skipped  by 
assigning  them  to  the  unused  vari- 
able DUM$.  The  new  fields  are 
then  defined  after  this  variable. 
This  process  can  be  carried  onto  as 
many  lines  as  necessary,  each  time 
picking  up  the  previously  defined 
fields. 

Remember,  each  time  a  vari- 
able is  repeated  in  a  set  of  FIELD 
statements,  only  the  last  one  de- 
fined is  assigned  in  this  manner. 
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This  means  that  in  Figure  2,  DUM$ 
will  contain  the  characters  specified 
in  the  last  FIELD  statement  when  a 
record  is  read  in. 

Flexible  Arrays 

Arrays  can  be  defined  using  this 
same  technique.  Again,  a  dummy 
variable  DUM$  absorbs  the  previ- 
ously defined  fields.  The  idea  is  to 
step  through  the  record,  assigning 
each  array  element  its  own  FIELD 
statement.  At  each  step,  the  un- 
wanted or  previously  assigned 
fields  are  absorbed  into  the  unused 
variable  DUM$.  Figure  3  is  an  ex- 
ample of  this  technique  that  can  be 
adapted  directly  into  your  own  pro- 
grams. Notice  that  the  record 
length  must  be  calculated  to  open 
the  file. 

Designing  Your  Own  File 

Completely  nonstandard  files  can 
be  created  in  much  the  same  way, 
as  shown  in  Figure  4.  The  format 
for  the  file  is  stored,  in  this  case,  in 
an  array.  Each  element  holds  the 
length  of  a  field.  A  separate  variable 
contains  the  number  of  fields  de- 
fined. These  can  be  assigned  from  a 
file,  read  in  from  DATA  statements, 
or  input  from  the  user. 

Before  the  file  can  be  opened, 
the  record  length  must  be  calculat- 
ed. Line  10  does  this  by  adding  the 
individual  field  lengths  stored  in 
the  array.  The  file  is  then  opened, 
and  the  fields  are  defined.  This  is 
done  in  a  loop,  using  the  same  tech- 
nique described  earlier  for  arrays. 
This  time,  however,  the  length  of 
fields  must  be  summed  manually  to 
produce  the  number  of  characters 
to  absorb  the  next  time  through  the 
loop  (see  line  60).  Again,  these 
statements  can  be  adapted  into 
your  own  programs. 

Please  note:  If  you  are  plan- 
ning to  use  a  record  length  of  more 
than  128  bytes  (characters)  you 
must  initialize  BASIC  differently. 
The  file  buffer  size  is  changed  by 
adding  parameters  to  the  BASIC 
command  when  loading  BASIC. 
The  command  with  its  relevant  pa- 
rameters is 

BASICA  /F:number-of-file8  /S: 
buffersize 

By  default,  the  buffer  size  is 
128  characters,  and  the  maximum 
number  of  files  is  eight.  The  maxi- 


mum buffer  size  is  32,767  charac- 
ters. This  means  that  your  flexible 
file  cannot  have  a  record  length 
larger  than  32767.  This  should  not 
be  a  problem,  however.  If  you  find 
yourself  running  out  of  memory 
with  a  large  buffer  size,  limit  the 


maximum  number  of  files  (you 
probably  won't  be  reading  and 
writing  to  eight  files  simultaneous- 
ly). Here  is  an  example  of  initializ- 
ing BASIC  with  two  open  files  and 
a  record  length  of  150  characters. 
BASICA  /F:2  /S:150 


Figure  1 

1st  FIELD  statement— > 

DATE 

DESCRIPTION    PRICE 

record  5  : 

"06/  14/    87 

#356      Color  Monitor     280.00"  (sample) 

2nd  FIELD  statement— > 

M      D      Y 
O      A       E 
N      Y      A 
T               R 
H 

R                ITEM 

E 

F 

10  OPEN  "examplel.dat"  AS  #1  LEN  =  40 


20  FIELD  #1, 
30  FIELD  #1, 


40  GET  #1,5 

Figure  2 

record  14  : 


8  AS  DATE$,  25  AS  DESCRIPTIONS,  7  AS  PRICES 
2  AS  MONTHS,  1  AS  DUMS,  2  AS  DAYS,  1  AS  DUMS 
2  AS  YEARS,  1  AS  DUMS,  3  AS  REFS,  21  AS  ITEMS 
7  AS  DUMS 


10 
A 


20 
D 


45     87     34     23     23     39     38    61' 


I        J 


30     40 

B      C 

DUMS 

(final  assignment  of)  DUMS 

10  OPEN  "example2.dat"  AS  #2  LEN  =  36 

20  FIELD  #2,  3  AS  AS,  3  AS  B$,  3  AS  C$,  3  AS  DS 

30  FIELD  #2,  12  AS  DUMS,  3  AS  E$,  3  AS  F$,  3  AS  G$,.3  AS  H$ 

40  FIELD  #2,  24  AS  DUMS,  3  AS  IS,  3  AS  J$,  3  AS  K$,  3  AS  L$ 

50  GET  #2,14 

Figure  3 

record  18, 


(sample) 
(line  20) 
(line  30) 
(line  40) 


'34    20       0       3     45      15    35" 


(sample) 


DUMS 
DUMS 
DUMS 
DUMS 
DUMS 
(final  assign  of)DUM$ 

Note:  In  this  example    FIELDLEN  =  3 

NUM  ARRAS'S  =  7 

10  OPEN  "example3.dat"  AS  #3  LEN=FIELDLEN*NUMARRAyS 
20  FOR  I-l  TO  NUMARRAYS 

30  FIELD  #3,(I-1>*FIELDLEN  AS  DUMS,  FIELDLEN  AS  ASH) 
40  NEXT  I 

50  GET  #1,18 


AS(1) 

1st    pass  (loop) 

A$(2) 

2nd  pass 

A$(3) 

3rd 

AS(4) 

4th 

AS(5) 

5  th 

AS(6) 

6th 

A$(7) 

7th    (last) 

Figure  4 


12  3  4 

1234567890123456789012345678901234567890 


record  34: 
file  structure 


want 
field  of  length  5 
field  of  length  1 
field  of  length  10 
field  of  length  9 
field  of  length  9 
in  this  case  FIELDNUM  =  5 


assign 
FlELDLEN(l)  =  5 
FIELDLEN(2)  =  7 
F1ELDLEN(3)  =  10 
F1ELDLEN(4)  =  9 
FIELDLEN(5)  =  9 


10  RECLEN  =  0;FOR  I-l  TO  FIELDNUM:RECLEN  =  RECLEN-1-FIELDLEN(I)  :NEXT  I 

20  OPEN  "example4.dat"  AS  #4  LEN  =  RECLEN 

30  DUMLEN  =  0 

40  FOR  I-=l  TO  FIELDNUM 

50  FIELD  #4,DUMLEN  AS  DUMS,  FIELDLEN(I)  AS  A$(I) 

0  DUMLEN  =  DUMLEN-I-FIELDLEN(I) 

70  NEXT  I 

80  GET  #4,34  © 
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Sprite  Grabber 
For  The  64 


With  this  creative  graphics  utility/, 
you  can  capture  a  part  of  any  hi-res  or 
text  screen  and  convert  it  to  a  sprite 
for  use  in  any  other  program. 


Sprites  are  one  of  the  Commodore 
64's  wonders.  They  can  be  moved 
around  both  hi-res  and  text  screens 
without  disturbing  these  screens. 
Collisions  are  easily  detected,  and 
these  super-graphic  blocks  can  be 
expanded  in  both  the  horizontal 
and  vertical  directions.  On  the  neg- 
ative side,  sprites  take  a  long  time 
to  read  into  memory — especially  if 
your  program  contains  many 
sprites — and  there  is  no  utility  built 
into  the  64's  BASIC  2.0  to  allow 
you  to  grab  a  part  of  a  screen  and 
place  it  in  a  sprite.  "Sprite  Grab- 
ber," the  program  accompanying 
this  article,  provides  a  solution  to 
both  of  these  problems,  and  does  so 
without  using  a  large  amount  of  the 
64's  memory. 

Because  Sprite  Grabber  (Pro- 
gram 1)  is  written  entirely  in  ma- 
chine language,  it  must  be  entered 
using  the  "MLX"  machine  lan- 
guage entry  program  found  fre- 
quently in  COMPUTE!,  Be  sure  to 
read  the  instructions  for  using  MLX 
before  you  begin  entering  data. 
When  you  run  MLX,  you'll  be 
asked  for  a  starting  and  an  ending 
address  for  the  data  you'll  be  enter- 
ing. The  correct  values  for  Sprite 
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Grabber  are  as  follows: 

Starting  address:     COOO 
Ending  address:      C277 

After  you've  entered  all  the  data,  be 
sure  to  save  a  copy  before  leaving 
MLX. 

Grabbing  Sprites 

To  enable  Sprite  Grabber,  simply 
load  it  with 

UOAD"filename",8,l 

where  filename  is  the  name  you 
used  when  you  saved  Sprite  Grab- 
ber to  disk.  After  the  program  is 
loaded,  remember  to  type  NEW 
and  press  RETURN  to  reset  impor- 
tant memory  pointers. 

A  new  command  is  now  avail- 
able to  you.  The  syntax  of  the  com- 
mand is 

SYS  49152,  blk,  sx,  sy  {.so)  lea) 

Blk  refers  to  the  block  (the  64-byte 
area)  where  you  want  to  store  the 
sprite  data.  Legal  numbers  are 
0-255.  The  sprite  data  is  saved  to 
the  VIC  video  bank  (0-3)  where  the 
screen  resides.  The  usual  restric- 
tions for  selecting  sprite  blocks  ap- 
ply. For  example,  if  the  screen 
currently  resides  in  bank  0  (the  de- 
fault), then  you  must  choose  care- 
fully to  avoid  overwriting 
important  system  information.  In 
VIC  bank  0,  only  block  11  (loca- 
tions 704-767)  is  completely  un- 
used by  any  ROM  routine.  If  tape  is 


not  being  used,  blocks  13-15  (loca- 
tions 832-1023)  are  also  available. 
Blocks  32-255  lie  in  the  normal 
BASIC  program  text  area.  When 
using  these  blocks,  you  should  take 
steps  to  keep  the  BASIC  program 
from  corrupting  the  sprite  data,  and 
vice  versa.  Similar  cautions  apply  to 
the  other  video  banks. 

Sx  and  sy  are  the  x~  and  y- 
addresses,  respectively,  of  the  up- 
per left  comer  of  the  screen  area  to 
be  saved.  Sx  must  be  in  the  range  of 
0-319,  and  sy  must  be  0-199.  Parts 
of  the  sprite  may  be  off  the  screen  if 
sx  values  greater  than  296  or  sy 
values  greater  than  176  are  used. 

The  parameters  in  parentheses 
are  optional.  (Don't  type  the  paren- 
theses if  you  use  these  parameters.) 
Normally,  Sprite  Grabber  will  find 
which  screen  is  being  displayed  and 
will  take  the  data  from  that  screen, 
but  you  can  override  this  automatic 
operation  with  these  two  parame- 
ters. If  the  data  is  to  come  from  a  hi- 
res  screen,  only  the  first 
parameter — sa,  the  starting  address 
of  the  screen — needs  to  be  set.  If  the 
data  is  to  come  from  a  text  screen, 
both  this  and  the  second  parame- 
ter— ca,  the  starting  address  of  the 
character  set — must  be  specified. 
The  legal  range  for  each  of  these 
optional  parameters  is  0-65535. 

The  Sprite  Grabber  command 
can  be  used  in  direct  as  well  as 
program  mode.  Parameters  can  be 
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numbers,  variables,  or  any  expres- 
sion that  produces  a  number  in  the 
64's  BASIC.  Giving  a  parameter  a 
value  outside  of  the  legal  range  will 
yield  unpredictable  results. 

Practical  Uses 

Sprite  Grabber  can  be  used  to  dis- 
play scrolling  messages  that  are 
captured  from  text  screens.  To 
move  a  message,  all  that  you  need 
to  do  is  adjust  the  sprite's  x-  and  y- 
coordinates.  Text  can  easily  be 
moved  anywhere.  You  can  even 
have  your  own  custom  characters 
grabbed  and  placed  in  a  sprite. 

Sprite  Grabber  also  makes  it 
possible  to  use  hi-res  pictures  for 
computer  programs  such  as  games 
just  by  taking  the  data  from  the  hi- 
res picture.  If  you  don't  have  a 
sprite  editor,  you  can  use  a  hi-res 
program  to  draw  sprites  and  later 
capture  them  for  your  use.  Sprite 
grabber  also  makes  long  groups  of 
DATA  statements  almost  unneces- 
sary because  all  you  need  to  do  is 
print  a  picture  on  the  screen  and 
grab  it — you  don't  have  to  wait  for 
the  sprite  to  be  POKEd  into  the 
computer's  memory. 

A  Demonstration 

Demo  (Program  2)  is  a  BASIC  pro- 
gram that  shows  how  to  use  Sprite 
Grabber.  Demo  prints  a  message  on 
the  computer's  screen  and  sets  up 
eight  sprites  that  capture  the  mes- 
sage and  scroll  it.  The  demonstra- 
tion program  uses  sprite  blocks 
252-255,  which  lie  far  enough 
above  the  end  of  this  short  program 
and  far  enough  below  the  start  of 
the  string  variable  pool  that  they 
can  be  used  without  problems  in 
this  particular  example. 

The  sprites  in  Demo  show  all 
the  possibilities  of  horizontal  and 
vertical  sprite  expansion.  First,  the 
image  is  copied  to  one  block  of 
sprites  and  displayed,  then  it  is  cop- 
ied to  another  block  and  displayed. 
This  is  done  to  prevent  jitters  when 
the  sprite  is  being  copied.  When  the 
sprites  are  being  changed,  the  char- 
acter set — specified  by  the  ca  pa- 
rameter in  Sprite  Grabber's  SYS 
command — is  also  changed,  caus- 
ing the  letters  to  alternate  between 
upper-  and  lowercase.  Let's  take  a 
closer  look  at  the  program. 

Lines  160-190  do  some  initial 
housekeeping.   They   set   the   text 


screen  and  border  colors  (line  160), 
read  in  DATA  statements  that  indi- 
cate the  eight  sprites'  vertical  and 
horizontal  positions  (line  170),  set 
the  vertical  and  horizontal  expan- 
sion registers  (line  180),  and  set  the 
sprite's  colors  (line  190).  The  rest  of 
the  program  is  a  loop  that  enables 
all  the  sprites  (line  200),  calls  the 
Sprite  Grabber  routine  to  move  a 
portion  of  the  text  screen  into  two 
sprite  blocks  (line  210),  then  stores 
these  block  numbers  into  the  eight 
sprite  pointers  beginning  at  address 
2040  {line  220).  This  process  is  re- 
peated in  lines  230-240  with  a 
slightly  different  portion  of  the 
screen  grabbed,  and  a  different 
character  set  specified  by  the  ca  pa- 
rameter in  the  SYS  command.  The 
program  then  returns  to  the  FOR 
statement  in  line  190  and  repeats 
the  loop. 

Program  1 :  Sprite  Grabber 

Pleose  refer  to  the  "MLX"  article  in  this  issue 
before  entering  the  following  listing. 
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2E 

80 

C2 

18 

E4 

C128 

6D 

7D 

02 

AA 

A9 

00 

6D 

80 

60 

C130 

:C2 

BD 

80 

02 

8A 

0A 

2E 

80 

0E 

0138 

C2 

0A 

2E 

80 

02 

0A 

2E 

80 

88 

C140 

:C2 

35 

FB 

18 

AD 

80 

02 

65 

El 

C148 

EC 

85 

FC 

60 

20 

EF 

00 

29 

EC 

C150 

iFfl 

20 

17 

01 

98 

29 

07 

65 

34 

C158 

:FB 

85 

FB 

A9 

00 

65 

PC 

85 

6A 

C160 

iFC 

AD 

79 

02 

29 

F8 

65 

FB 

ID 

C168 

:a5 

FB 

AD 

7A 

02 

65 

FC 

85 

36 

C170 

iFC 

AD 

79 

02 

29 

07 

AA 

20 

14 

0178 

:62 

02 

A0 

00 

Bl 

FB 

3D 

69 

53 

0180 

!C2 

60 

20 

EF 

00 

4A 

4A 

4A 

m 

C188 

20 

17 

CI 

AD 

79 

C2 

8D 

7F 

66 

0190 

02 

AD 

7A 

02 

8D 

80 

C2 

4E 

9E 

0198 

80 

C2 

AD 

7F 

02 

6A 

4A 

4A 

59 

C1A0 

18 

65 

FB 

85 

FB 

A9 

00 

65 

4D 

C1A8 

FC 

85 

PC 

20 

62 

02 

A0 

00 

00 

O1B0 

Bl 

FB 

AA 

A5 

01 

09 

07 

29 

IF 

C1B8 

FB 

85 

01 

A9 

00 

85 

FC 

8A 

F0 

0100 

0A 

26 

FC 

0A 

26 

FC 

0A 

26 

72 

01C8 

FO 

85 

FB 

18 

AD 

78 

02 

65 

67 

C1D0 

FC 

85 

FC 

AD 

7B 

02 

29 

07 

EE 

CIDS 

A3 

Bl 

FB 

AA 

AD 

79 

02 

29 

49 

O1E0 

07 

AS 

8A 

39 

69 

02 

60 

AD 

BB 

CIES 

76 

C2 

0A 

60 

76 

C2 

8D 

70 

C6 

C1F0 

02 

AD 

75 

02 

4A 

4A 

4A 

18 

44 

CIFS 

6D 

70 

C2 

AS 

AD 

75 

02 

29 

27 

C200 

07 

AA 

BD 

69 

02 

11 

FD 

91 

E9 

0208 

FD 

60 

20 

83 

AE 

20 

F7 

B7 

7B 

0210 

A6 

15 

60 

AD 

77 

C2 

29 

00 

EE 

0218 

18 

65 

FE 

85 

FE 

A0 

3E 

A9 

DB 

0220 

00 

91 

FD 

88 

10 

FB 

AD 

18 

36 

C228 

D0 

29 

0E 

C9 

04 

F0 

04 

09 

74 

0230 

06 

00 

22 

AD 

00 

DD 

29 

03 

OS 

0238 

09 

03 

00 

00 

A9 

00 

18 

60 

20 

0240 

78 

02 

80 

78 

02 

40 

55 

02 

A0 

0248 

C9 

01 

D0 

09 

A9 

00 

18 

60 

88 

0250 

78 

02 

8D 

78 

C2 

A9 

7F 

80 

45 

0258 

00 

DC 

78 

A5 

01 

29 

FA 

85 

2D 

C260 

01 

60 

A5 

01 

29 

FS 

85 

01 

7C 

0268 

60 

80 

40 

20 

10 

08 

04 

02 

F2 

C270 

01 

00 

00 

00 

00 

00 

00 

00 

76 

Program  2:  Demo 

For  instructions  on  entering  the  following 

program  please  refer  to  "COMPUTEi's  Guide 

1o  Typing  in  Programs"  found  elsewhere  in  this 

issue. 

RQ  10  REM {2  SPACES)*  SPRITE  GR 

ABBER  DEMO 
SK  20  REM  COPy-RIGHT  1988  COMPU 
TEJ  PUBLICATIONS,  INC. 
12  SPACES] ALL  RIGHTS  RES 
ERVED. 
JQ  100  PRINT" ICLRJl RED) 

110  SPACESJB18  @3 
BG  110  PRINT"i9  SPACES)|h3 

{RVSJ*  SPRITE  GRABBER  * 

l0FF)EG3 
FE  120  PRINT" 19  SPACES JgMi* 

12  SPACES) FROM  COMPUTEI 
*EGi 
EK  130  PRIKT"ll0  SPACESJilB  Tl 
PB  140  PRINT"lWHTJE73{2  RIGHT) 

COPYRIGHT  1988  COMPUTEI 
PUBLICATIONS" 
XP  150  PRINT" {10  RIGHT }ALL  RIG 

HTS  RESERVED." 
DR  160  POKE53280,0:POKE53281,0 
CG  170  FORX=0TO15:READA:POKE53 

248+X,A:NEXT 
AS  180  POKE53277,5l!POKES3271, 

15 
SG  190  FORX=0TO7:POKE53287+X,X 

/ 2+1: NEXT 
MH  200  FORX=31T0228STEP4:POKE5 

3269,255 
FM  210  SYS49152,252,X,4,1024,4 

096:SYS49152, 253,X+24,4 

,1024,4096 
GC  220  FORY=0TO3:POKE2040+2*Y, 

2  52 : POKE2041+2*Y, 253 iNE 

XT 
RA  230  SYS49152,254,X+2,4,1024 

,6144:SYS49152,255,X+26 

,4, 1024,6144 
EX  240  FORY=0TO3!POKE2040+2*Y, 

254 : POKE2041+2*y, 255 :NE 

XT 
MB  250  NEXT 
CM  300  DATA120, 100,168,100,144 

, 150,168,150 
XP  310  DATA120, 200,168,200,144 

,225,168,225  © 
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Softkey 
For  Atari  XL/XE 


John  Oakley  And  Earl  R,  Davidson 


Take  control  of  your  computer  key- 
board with  this  impressive  macro  pro- 
gram— the  best  one  we've  published 
for  the  Atari.  Included  is  a  powerful 
macro  editor.  For  the  Atari  XL/XE 
series  of  computers  with  a  disk  drive. 


"Softkey"  is  a  keyboard  macro  pro- 
gram for  Atari  XL  and  XE  comput- 
ers (except  for  ttie  1200XL}  that's 
compatible  with  many  programs, 
including  Atari  BASIC,  AtariWriter, 
SpeedScript  3.0,  DOS  2.5,  and  DOS 
XL  from  OSS.  Softkey  allows  you  to 
redefine  keys  any  way  you  wish. 

If  you  plan  to  use  Softkey  with 
BASIC,  you  can  redefine  keys  to  aid 
you  in  writing  and  debugging  your 
programs.  For  instance,  you  might 
want  to  define  Shift-Control-S  as 
SAVE"D:.  Then,  whenever  you 
want  to  save  your  program,  just 
press  Shift-Control-S  and  type  the 
filename,  then  press  RETURN. 

Softkey  can  be  even  more  use- 
ful with  a  word  processor.  Suppose 
you're  writing  an  essay  about 
Wuthering  Heights,  a  novel  by 
Emily  Bronte.  Define  Control-W  to 
be  Wuthering  Heights,  Control-H 
to  be  Heathcliff,  Control-C  to  be 
Catherine,  and  Control-B  to  be 
Bronte.  One  keystroke  is  all  you 
need  to  get  any  of  these  names. 

The  best  thing  about  Softkey  is 
that  you  don't  need  to  be  a  pro- 
grammer to  use  it — a  complete 
macro  editor  is  included. 

Typing  It  In 

Softkey  consists  of  two  programs — 
the  first  is  a  BASIC  program  that 
creates  a  machine  language  pro- 
gram on  disk.  The  second  is  the 
Softkey  Editor,  which  is  written  in 
BASIC.   Using   "The   Automatic 


Proofreader"  program,  located 
elsewhere  in  this  issue,  type  in  both 
programs  and  save  them  to  disk. 
When  you  save  the  programs,  use 
the  name  SKCREATE  for  Program 
1  and  SKEDIT  for  Program  2.  Pro- 
gram 2  has  many  special  characters. 
Be  sure  you  read  and  understand 
the  typing  instructions  in  the 
"COMPUTEl's  Guide  to  Typing  In 
Programs"  article  elsewhere  in  this 
issue.  In  particular,  the  vertical  line 
character  (1)  is  obtained  with  the 
SHIFT- =  key  combination.  Char- 
acters enclosed  in  braces,  {},  are 
typed  by  holding  down  the  CTRL 
key  while  typing  the  indicated  keys. 

Next,  load  Program  1  and  run 
it.  The  program  will  ask  you  the 
name  of  the  file  you  wish  to  create. 
Respond  with  the  name  AUTORUN 
.SYS.  The  machine  language  Soft- 
key  program  will  be  written  to  disk. 
If  your  disk  already  has  a  file 
named  AUTORUN.SYS  on  it,  you 
probably  don't  want  to  overwrite 
that  file  with  the  Softkey  program. 
Instead,  format  a  new  disk,  write 
the  DOS  files  to  it  (and  the  RAM- 
DISK.COM  file,  if  you  have  a 
130XE),  copy  SKEDIT  to  the  disk, 
and  finally  run  SKCREATE  and 
specify  AUTORUN.SYS. 

Now,  run  SKEDIT  (Program 
2).  You'll  see  the  following  list  of 
commands: 

Edit  Key 
Load 
Save 
Clear 
Auto  Key 
View  All 

You  can  move  up  and  down  among 
the  commands  with  the  cursor 
keys.  Press  RETURN  to  select  a 
command.  Alternatively,  com- 
mands can  be  selected  by  typing 


the  first  letter  of  the  command.  To 
the  left  of  the  commands  is  the  file 
selector  box,  which  becomes  active 
when  you  select  the  Load  com- 
mand. The  box  to  the  right  of  the 
commands  (labeled  Current  File)  is 
a  status  box,  which  keeps  track  of 
the  number  of  keys  defined,  the 
amount  of  memory  used,  and 
which  key  (if  any)  is  defined  as  the 
Auto  Key. 

Let's  define  a  key.  Select  the 
Edit  Key  Option  by  pressing  E. 
Now  press  the  key  combination 
that  you  wish  to  define.  You  can 
define  Control  and  Shift-Control 
combinations,  so  Control-B  and 
5hift-Control-B  can  perform  differ- 
ent actions.  We  will  define  a  short- 
cut for  saving  to  disk.  Press  Shift- 
Control-S.  Now  type  SAVE"D:. 
Press  SELECT  to  store  your  macro. 
If  you  wish  to  define  other  keys, 
define  them  now.  If  you  want  one 
of  your  key  definitions  to  execute 
automatically  when  you  boot  the 
disk,  choose  that  key  as  the  Auto 
Key  with  the  Auto  Key  command. 

When  you're  ready  to  save  your 
key  definitions,  select  the  Save  com- 
mand. Enter  the  name  DEFAULT 
.SOF.  This  is  the  name  of  the  file 
which  is  loaded  by  the  AUTOR- 
UN.SYS program.  Reboot  your 
computer  by  turning  it  off  and  back 
on.  The  Softkey  program  loads  into 
memory.  If  you  selected  an  Auto 
Key,  it  executes  automatically.  Try 
out  your  keyboard  macro  by  typing 
Shift-Control-S.  SAVE"D:  should 
appear  on  the  screen. 

Softkey  can  be  disconnected 
by  typing  Shift-Control-Escape. 
This  should  be  done  whenever  you 
run  SKEDIT  to  edit  your  macros. 
Pressing  Shift-Control-Escape 
again  reactivates  Softkey. 
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Editor  Features 

Since  the  Caps  key  can  be  used  as  a 
macro  key,  press  HELP  and  Shift- 
HELP  to  turn  caps  on  and  off.  Press 
OPTION  to  delete  the  last  key 
pressed  (pressing  delete  won't 
work,  since  macros  can  be  assigned 
to  it).  Press  START  to  abort  the 
editing  of  the  current  key.  Press 
SELECT  to  enter  a  new  definition. 
You  may  want  to  keep  a  collec- 
tion of  macro  files  on  a  disk  with 
descriptive  filenames.  Whenever  you 
want  to  use  one  of  the  macro  files, 
simply  rename  it  to  DEFAULT.SOF. 

Key  Redefinition 

Softkey  allows  dynamic  key  redefi- 
nition. This  means  you  can  redefine 
any  key  without  rebooting.  As  an 
example  of  this  powerful  feature, 
we'll  redefine  the  Shift-Control-S 
key  to  print  SOUND.  Note  that  the 
new  definition  must  have  the  same 
number,  or  less  characters  than  the 
original  definition. 

Press  Shift-Control-A  to  rede- 
fine a  key.  The  border  color  should 
change  to  red.  Now  press  the  key 
you  wish  to  redefine — in  this  case 
Shift-Con trol-S.  The  border  should 
change  to  light  purple,  indicating 
that  you've  chosen  a  valid  macro 
key.  Now  type  SOUND.  Press  Shift- 
Control-A  to  end  macro  redefini- 
tion. You  may  wish  to  define  sever- 
al strings  of  spaces  in  the  macro 
editor.  These  blank  definitions  can 
then  be  redefined  whenever  you 
need  them.  Note  that  there  is  no 
way  to  save  the  keys  redefined  by 
Softkey's  redefinition  mode. 

Compatibility 

Softkey  is  compatible  with  many 
programs.  As  an  example,  consider 
SpeedScript  3.0,  COMFUTEi's  popu- 
lar word  processor.  Format  a  hew 
disk  and  copy  the  Atari  DOS  files 
onto  it.  Now,  transfer  a  copy  of 
SpeedScript  to  the  disk  and  rename 
it  SPSCRIPT.OBJ.  Copy  SKCREATE 
and  SKEDIT  to  the  disk.  Run 
SKCREATE  and  answer  AUTORUN 
.SYS  when  asked  for  a  filename. 
Run  SKEDIT  and  define  any  keys 
you  like.  Be  sure  to  save  your  keys 
with  the  filename  DEFAULTSOF. 
Turn  the  computer  off  and  back  on. 
Softkey  will  load  into  memory. 
Type  DOS  to  go  to  the  DOS  menu. 
Select  L,  press  RETURN,  and  type 
SPSCRIPT.OBJ.   SpeedScript  will 


start,  and  your  key  definitions  will 
be  ready. 

About  Softlcey 

The  machine  language  Softkey  pro- 
gram intercepts  the  keyboard  inter- 
rupt and  compares  each  keystroke 
to  the  defined  macros.  If  the  key- 
stroke is  not  a  macro,  the  key  is 
passed  on  to  the  regular  keyboard 
routines.  If  the  key  !S  a  macro,  each 
key  of  the  macro  is  sent  on  to  the 
built-in  routines,  one  at  a  time.  A 
keyboard  buffer  is  built-in,  allow- 
ing you  to  type  ahead  while  Softkey 
is  in  control. 

Softkey  moves  MEMLO  up  by 
128  bytes  and  installs  its  own  key- 
board buffering  and  vertical  blank 
routines.  Most  of  the  machine  lan- 
guage routine  and  the  3K  macro 
buffer  are  located  in  normally  un- 
used sections  of  memory.  Softkey 
should  be  compatible  with  any  pro- 
gram that  uses  standard  keyboard 
calls,  does  not  use  the  same  memo- 
ry locations  as  Softkey,  and  recog- 
nizes the  new  MEMLO  setting. 

For  instructions  on  entering  ttiese  programs, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  elsewhere  in  ttiis  issue. 

Program  1 :  Soft i<ey  Creator 

NO  0  REM  COPYRISHT  1988  COMP 

UTE!  PUBLICATIONS,  INC. 

ALL  RIGHTS  RESERVED. 

FP  1  PRINT  "  CCLEARJCDPYRIBHT 

19aB"':PRINT  "COMPUTE! 

PUBLICATIONS,   INC.":PRI 

NT  "ALL  RIBHTS  RESERVED 


LC  2     DI 

Dfl  5     PR 

RE 

KE  6    PR 

T 

*  ( 

tL  10    0 

6N  20    F 

LD  30     R 

A 

DL  40    N 

GI150     I 

N 

E 

El   1000 

JA  1010 
JB  1020 
JC  1030 
JJ  1040 

HC  1050 

m  1060 

HO  1070 

KO  1080 

a  1090 

BC  1100 


M  TEMP» 
INT  : PR 
ATOR. " 
INT  "FI 
#16j  TEM 
3)=TEMP 
PEH  #1, 
OR  H=l 
EAD  AsC 

EXT  H 
F  CK02 
T  "ERRO 
MENTS" 
DATA  2 
3,53,0 
DATA  0 
DATA  0 
DATA  0 
DATA  a 
240,2 
DATA  1 
,1,211 
DATA  4 
1,32,1 
DATA  1 
0, ?&,  1 
DATA  1 
42,2,2 
DATA  1 
5,201 , 
DATA  1 


(20> ,FN« (22) 
INT  "SOFTKEY  C 

LENAMEs " ; : INPU 

P*:FN«="D! " : FN 

» 

B, 0, FN« 

TO  2126 

K=CK+A:PUT  #1, 


10721  THEN  PRI 
R  IN  DATA  STAT 

55,255, 0,4B, 1? 

.15 

,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0 
,32,0, 0, 162, 0, 

62, 1 , B, 120, 173 

.72 

1 , 254, 141, 1 , 21 

1  ,  176 

04, 141,1,211,4 

38,7  2 

73,9, 210, 205,2 

08,5 

74, 241,2, 20B,4 

159, 208 

0, 173,255, 2, 73 


,255, 141,255 
1110  DATA  2,176,31,174,0, 

48,232,224 
1120  DATA  24,208,2,162,0, 

236, 1 , 48 
1130  DATA  240,  16,  142, 0, 4E 

, 157,3,48 


EF  1  120 

KP 
KG 


m  1180 

flF  1  190 

JB  1200 

JC  1210 

JD  1220 

JE  1230 

JF  1240 

JE  1250 

JH  1260 

Jl  1270 

JJ  1280 

J(  1290 

JC  1300 

JD  1310 

JE  1320 

JF  1330 

JS  1340 

JH  1350 

JI  1360 

JJ  1370 

JK  1380 

Jl  1390 

Jl  1400 

JE  1410 

JF  1420 

J6  1430 

JH  1440 

J!  1450 

JJ  1460 

K  1470 

Jl  1480 

Jfl  1490 

JE  1500 

BE  1510 

CS  1520 

BE  1530 

FP  1540 

FP  1550 

LB  1S60 

NL  1570 

OB  1580 

U  1590 

OK  1600 

JB  1610 

LJ  1620 

OD  1630 

m  1640 

EH  1650 

Se  1660 


DATA 

84,4 

DATA 

,0,0 

DATA 

.0 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

152, 

DATA 

66,  3 

DATA 

6,  16 

DATA 

69,  3 

DATA 

49,  4 

DATA 

214, 

DATA 

,213 

DATA 

6,  16 

DATA 
,69, 
DATA 
149, 
DATA 
182, 
DATA 
9,0, 
DATA 
2,14 
DATA 
B,  16 
DATA 
217, 
DATA 
,211 


69, 70,65, 85,  76, 
6,  83 
79,70, 155,0, 0, 0 


255,0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
157 

72, 
,  32 

86, 
9,  21 

68, 

160 

4,  1 
8,  42 

56, 
133, 

217 
,230 

2,2 
9,0, 

68, 
3,  16 

212 
49,4 
I  56, 
52,3 

165 
141, 

212 
1  ,  28 

165 
,9,0, 

216 
173, 

72, 

165 


)0 

0 

0, 

,0 

0 

0, 

f^ 

0 

0, 

.0 

0 

0. 

.0 

0 

0. 

,0 

0 

0, 

.  0 

0 

0, 

.  0 

0 

0, 

,0 

0 

0, 

,0 

0 

0. 

,0 

0 

0, 

.0 

0 

0, 

,0 

0 

0, 

.0 

0 

0, 

,0 

0 

0, 

,0 

0 

0, 

.0 

0 

0. 

,0 

0 

0, 

,0 

0 

0. 

,0 

0 

0, 

,0 

0 

0, 

,0 

0 

0, 

,0 

0 

0, 

.0 

0 

0, 

,0 

0 

0, 

,0 

0 

0, 

,0 

0 

0, 

.0 

0 

0, 

.0 

0 

0. 

,0 

0 

0, 

,0 

0 

0, 

>  0 

0 

15 

0,  0 


0,  0 


.  0.0 

,  0,  0 

0,  0 

0,  0 
0,  0 
0,0 
0,  0 
0,  0 
,  0.  0 
,  0,  0 
"  0 
0 
0 
0 
0 
0 


0 


0 


3, 169, 7, 

228, 96, 1 

4,  157 

3, 169, 0, 

69, 0,32, 


165, 
212, 
,  229 
,  212 
30,  2 
157 

3,16 

(4 


,  165 
i8,2 
96,  2 
>2 

.49, 
14 
S,l 
48 
,13, 
133 
,  169 
1,21 
41,2 
,212 


216, 
165 

,215 
,208 
13,  1 

9,  80 

,213 

4,96 

176, 

20,  1 

141, 

,80, 
1 
54,  1 


0 

0 
,0 
,0 
.0 
.0 

0,  - 

0,  0 

,  0,  0 

,0,0 

,0,0 

0,  0 

0,  0 

.0.0 

,  0,  0 

,  0,  0 

,  0,  0 

0,  0 

0,0 

0,0 

3,3, 

157, 

62,  1 

157, 

149, 

229, 

,  133 

62,  1 

,  157 
,32, 
,32, 
0,16 
65,  1 
29,4 
133, 
41,  1 
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DA  1670 

DATA  5,213,240,31, 16 

a, 141 , 3, 48 

HC  2500 

DATA  70,65,85,76,84, 

0,0, 177,216 

OP  2090 

DATA  169,23, 141, 1,48 

46,83,79 

HD  1680 

DATA  145,214,230,214 

, 162,32, 169 

EF2510 

DATA  70,33,155,155,1 

,208,2,230,215 

nft  2100 

DATA  12, 157,66,3,76, 

69,0, 133,212 

m   1690 

DATA  230,216,208,2,2 

86,228, 162 

eiC2S20 

DATA  169,80,133,213, 

30,217, 198,212 

PN  2  1  1  0 

DATA  32, 169, 147, 157, 

169,0, 133,214 

m   1700 

DATA  165,212,201,255 

68,3, 169,48 

EC  2330 

DATA  169,224,133,215 

,208,2, 178,213 

FA  2120 

DATA  157,69,3,160,2, 

, 162,3, 160,0 

00  1710 

DATA  56,176,219,169, 

169,0, 32 

06  2540 

DATA  177,214,145,212 

0,141, 13,53 

IN  2130 

DATA  149,49,16,3,76, 

, 136,208,249, 230 

OH  1720 

DATA  173,13,33,10,17 

60, 52, 172 

M  2550 

DATA  215,230,213,202 

0, 189, 14,53 

BC2140 

DATA  148,48,240,23,1 

, 16,240,8, 120 

III  1730 

DATA  133,216, 189, 15, 

69, 149, 157,68 

KL  2560 

DATA  169,0, 141, 14,21 

53, 133,217, 189 

BE  2150 

DATA  3, 169,48, 157,69 

2, 173, 1,211 

CI  1740 

DATA  74,53,  133,214,  1 

,3, 169 , 0 

01  2570 

DATA  72,41,254,  141,  1 

89,75,53, 133 

FL2160 

DATA  32, 149,49, 16,3, 

,211, 169,80 

05  17  50 

DATA  215, 160,0, 174,  1 

76, 60 , 52 

Hlt2Se0 

DATA  133,213,169,224 

3,53,24, 173 

IK  2170 

DATA  32, 166,51,96,8, 

,  133,215,  162, 3 

K  1760 

DATA  231,2, 125, 134,5 

120,  169, 0 

HO  2590 

DATA  160,0,177,212,1 

3, 145,216, 173 

HH  2180 

DATA  141,14,212,173, 
1 , 21 1 , 72, 41 

45,214, 136,208 

EP  1770 

DATA  232,2, 125, 164,5 

JO  2600 

DATA  249,230,213,230 

3, 143, 214,238 

BD  2190 

DATA  234,141,1,211,1 

,215,202, 16,240 

OB  17B0 

DATA  13,53, 173, 13,53 

73, 143,46, 13 

10  2610 

DATA  104, 141 ,1,211,1 

,201,30,208 

El  2200 

DATA  144,48,240,23,1 

69, 192, 141, 14 

JC  1790 

DATA  199, 169, 126, 133 

73, 143,48, 133 

eF2620 

DATA  212,40,96,0,86, 

,216, 169,0, 133 

EE  2210 

DATA  214,173,144,48, 

48,96,48 

HC  1800 

DATA  217, 173,231,2, 1 

133,215, 160,4 

BO  263  0 

DATA  101,48,104,48,1 

33,212, 173,232 

KB  2220 

DATA  173,141,48,145, 

20, 48,  189,50 

EF  1  B  1  0 

DATA  2,133,213,169,0 

214,200, 173, 142 
DATA  48,145,214,173, 

DK2640 

DATA  199,50,218,50,3 

,133,214,169 

HI  2230 

5, 196,49, 196 

EG  1820 

DATA  48, 133,215, 163, 

141 ,48, 133,212 

EC  2650 

DATA  54, 196, 62, 196,6 

216,5,217,240 

ED  2240 

DATA  173,142,48,133, 

8, 196, 71 , 196 

DP  1B30 

DATA  31, 160,0, 177,21 

213, 160, 0, 173 

HI  2660 

DATA  83, 196,88, 196,9 

4, 145,212,230 

EO  2250 

DATA  147,48,145,212, 

1,  196,203,  196 

BP  1840 

DATA  214,208,2,230,2 

160, 1 , 173, 148 

HL  2670 

DATA  208,196,220,196 

15,230,212,208 

EC  2260 

DATA  48,145,212,160, 

,223, 196,52, 198 

»1  1850 

DATA  2,230,213, 198,2 

2, 145,212, 160 

El  2680 

DATA  60,198,70,198,8 
9, 198,40, 198 

16, 165,216,201 

LC  2270 

DATA  3,169,0,145,212 

68  1860 

DATA  255,208,2,198,2 

, 160,6, 145 

AH  2690 

DATA  46, 198,49, 198,9 

17,56, 176,219 

EK  2280 

DATA  212,200, 145,212 

6,51, 101,51 

Hf  1870 

DATA  165,212,141,231 

,  160,4,  145,212 

HP  2700 

DATA  87,48,97,48,102 

,2, 165,213, 141 

BS2290 

DATA  200,145,212,160 

,48, 105, 48 

Jl  1BB0 

DATA  232,2, 169,56, 14 

,8,  162,0,  189 

BB2710 

DATA  121,48,194,50,2 

1,8,2, 169 

KK2300 

DATA  149,48,145,212, 

04, 50,222, 50 

10  1890 

DATA  48, 141,9, 2, 169, 

232,200,206, 148 

DK  2720 

DATA  36, 196,50,196,5 

34, 141 ,40 

HP  2310 

DATA  48,208,244,173, 

5, 196, 63, 196 

EN  1900 

DATA  2, 169,48, 141,41 

141,48, 141 , 143 

EP2730 

DATA  69, 196,72, 196,8 

,2, 162, 0 

FC2320 

DATA  48, 173, 142,48, 1 

4, 196,89, 196 

LD  1  9  1 0 

DATA  142,27,2,232, 14 

41, 144,48, 152 

HO  2740 

DATA  92, 196,206, 196, 

2,26,2, 169 

EL  2330 

DATA  24, 109, 141,48, 1 

209, 196,221, 196 

CE  1920 

DATA  27, 133, 12, 169,4 

41, 141,48, 173 

HS2750 

DATA  224,196,56,198, 

8, 133, 13, 169 

AO  2340 

DATA  142,48, 105,0, 14 

65, 198, 75, 198 

AA  1930 

DATA  99, 141,2, 196, 16 

1,  142,48,  104 

EH  2760 

DATA  94,198,41,198,4 

9, 190, 141,3 

DP  2350 

DATA  141,  1,211,  169, 1 

7, 198,30, 198 

HO  1940 

DATA  196, 104, 141, 1 ,2 

92, 141, 14, 212 

LB  2770 

DATA  97,31, 102,51,0, 

1 1, 169, 192, 141 

BE  2360 

DATA  40,96, 132,212, 1 

1,0,3 

PD  1950 

DATA  14,212,40,32,24 

69,0, 133,213 

FE27a0 

DATA  2,36,34,27,2,2, 

9,30,96, 169 

BF  2370 

DATA  32,170,217,32,2 

2,2 

JH  1960 

DATA  99, 141 , 141,48, 1 

30,216, 162,8 

KH  2790 

DATA  0, 1, 1,3,0, 1,0, 1 
DATA  3,27,56,34,126, 

69, 198, 141, 142 

00  2380 

DATA  160,0, 177,243,8 

LD  2800 

CE  1970 

DATA  48, 169, 0, 141 , 14 

,41, 127, 137 

3,0,1 

3,48, 141, 144 

DO  2390 

DATA  140,52,232,200, 

JN2810 

DATA  3,1,0,0,0,0,0,0 

JJ  1980 

DATA  4S, 162,32, 169,3 

40, 16,243, 162 

JK2820 

DATA  0,0,0,0,0,0,0,0 

,  157, 66,  3 

IL  2400 

DATA  32,169,12,157,6 

<!L  2830 

DATA  0,0,0,0,0,0,0,0 

LI  1990 

DATA  24, 173, 1,3, 105, 

6,3,32,86 

Jn2a40 

DATA  0, 0,0, 0,0,0,0,0 

48, 141, 127 

LI  2410 

DATA  228,162,0,169,1 

11  2850 

DATA  226,2,227,2,230 

PR  2000 

DATA  48, 169, 126, 157, 

1, 157,66,3 

,49, 0, 196 

68,3,  169,48 

IIC2420 

DATA  169,42,157,72,3 

HI  2860 

DATA  116,198,0,0,0,0 

FP  2010 

DATA  157,69,3,169,4, 

, 169,0, 157 

,e>,ei 

157, 74,3 

IIH2430 

DATA  73,3, 169, 140, 15 

BO  2870 

DATA  0,0,0,0,0,224, 1 

FF  2020 

DATA  32,86,228,16,3, 

7, 68, 3, 169 

,240 

76,60,32 

m  2440 

DATA  52,  157,69,3,32, 

DE  2880 

DATA  3,76,238,197,16 

CJ  2030 

DATA  162,32,169,145, 

86, 228, 162 

5,212,72, 165 

157,68,3, 169 

m  2450 

DATA  0, 160,0, 136,208 

K  2890 

DATA  213,72,169,3,14 

FI  2040 

DATA  48,157,69,3,160 

,253, 202,208 

1,43,2, 169 

,2,169,0 

IF  2460 

DATA  248,96,233,69, 1 

EJ2900 

DATA  1,141,26,2,173, 

FJ  2050 

DATA  32, 149,49, 16,3, 

14,114,111,114 

2,48,240 

76,60,32 

EE  2470 

DATA  32,33, 120, 120,1 

H)I2910 

DATA  34, 173, 15,210,4 

OE  2060 

DATA  173,145,48,240, 

20, 155, 155,67 

1,4,240,7 

9,32,  113,51 

Efl  2480 

DATA  97,  110,  1  10,  HI, 

IB  2920 

DATA  169,0,141,2,48, 

in  2070 

DATA  206, 145,48,56, I 

116,32,76, 111 

240,40,206 

76,242, 173, 146 

ri  2490 

DATA  97,100,32,68,49 

LK2930 

DATA  2,48,208,33,  173 

LB  2080 

DATA  48,201,255,240, 

,58, 68, 69 

,218,2, 141 
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Ft;  2940 

DATA  2,4a, 173,9, 210, 

LC  3350 

DATA  200,2, 141 , S , 1 96 

H>20  THEN  FLASH=1 

174 , 0 , 48 

,73,34, 141 

HS   140 

IF  FLASH=1  THEN  A-U9R 

00  2950 

DATA  236,1,48,208,18 

OP  3360 

DATA  200,2,56,  176,  17 

(ADR(INVERT»> , SCRMEM+ 

, 232, 224 , 24 

7, 160,3, 177 

OFFSET, L) 

HK  3370 

DATA  212, 170, 169,0, 1 

KK  150 

IF  FLASH=10  THEN  A=US 

IC2960 

DATA  208,2,162,0,236 

45, 212, 138 , 160 

R(ADR(INVERT«)  ,  SCRMEfl 

, 1 ,48,240 

LL  3380 

DATA  1 ,  145,212,  169,  0 

+DFFSET,L) 

EA  2970 

DATA  6, 157,3,46, 142, 

, 141,9, 196 

tn  160 

IF  PEEK  (764J0255  THE 

0,49, 173 

PD  3390 

DATA  173,8,  196,  141,  2 

N  190 

OL  2980 

DATA  252,2,201,255,2 

00, 2, S6, 176 

BH  170 

IF  CONSOLE  THEN  CDNS= 

40,2,208,95 

K   3400 

DATA  149, 173, 2, 196, 1 

PEEK (33279) : IF  CDNS=3 

DH  2990 

DATA  173, 10, 196,208, 

33,212, 173,3 

DATA  196, 133,213, 160 

OR  CONS=5  DR  C0NS=6 

97, 173,4, 196 

BL  3410 

THEN  240 

m  3000 

DATA  13,5,196,240,89 

, 0, 173, 6, 196 

EE  180 

GOTO  130 

, 173,4, 196 

OE  3420 

DATA  209,212,208,25, 

HD  190 

CODE=PEEK (764> : RESTOR 

HC  3010 

DATA  133,212, 173, 5, 1 

160, 6, 173, 4 

E  CDDE+3000! READ  CODE 

96, 133,213, 160 

ID  3430 

DATA  196,145,212,200 

«, TYPE 

sr  3020 

DATA  1 , 177, 212, 160, 3 

, 173, 5, 196, 145 

PN  200 

IF  PEEK(732)=B1  AND  T 

,209,212,208 

HL  3440 

DATA  212, 165, 212, 141 

YPE=1  THEN  CDDE=CODE+ 

013030 

DATA  22, 169, 0, 145,21 

,4, 196, 165,213 

DATA  141,5, 196, 56,96 

64!RESTDRE  caDE+3000J 

2, 160,6, 177 

ni  3450 

READ  CODE*, TYPE 

HA  3040 

DATA  212, 141,4, 196,2 

, 160,4, 177 

09  210 

IF  CaDE=220  THEN  CODE 

00, 177,212, 141 

KB  3460 

DATA  212,72,200,177, 

=  255 

£H  3050 

DATA  5,196,24,144,20 

212, 133,213, 104 

A3  220 

IF  CFLAS  THEN  GET  #1, 

3, 176,201, 160 

a  3470 

DATA  133,212,5,213,2 

KEY: GOTO  240 

MK  3060 

DATA  3,24, 177,212, 10 

08,205,24,96 

DATA  169,0, 141, 4, 196 

KF  230 

POKE  764,255:SaUND  0, 

5, 1, 145,212 

nc  3480 

6, 10, 12:S0UN0  0,0,0,0 

CE  3070 

DATA  105,7,168,177,2 

,141,5, 196 

H  240 

IF  FLASH<10  THEN  Pl  =  US 

12, 141,6, 196 

CF  3490 

DATA  173,2,  196,  133,2 

R  (ADR  (INVERT*)  , SCRMEM 

Sn  3000 

DATA  32, 175, 197, 176, 

12, 173,3, 196 

+OFFSET,L) 

179, 173,6, 196 

HH  250 

RETURN 

DB  3090 

DATA  170,41,63,201, 1 

EA  3500 

DATA  133,213,165,212 
,5,213,240,29 

HB  260 

REM 

7, 20B, 5, 142 

HE  270 

REM  MAIN  COMMAND  MENU 

JI  3100 

DATA  220,2,240,3,142 

KN  3510 

DATA  160,3,169,0,145 

HO  280 

REM 

DN3110 

,252, 2, 104 

DATA  133,213, 104, 133 

,212, 96, 174, 1 

DATA  48,236,0,48,240 

, 241, 232,224 

DATA  24, 208, 2, 162,0, 

142, 1,48 

DATA  189,3,48, 141,6, 

196,201,220 

DATA  208,8, 173, 10, 19 

6,73,255, 141 

DATA  10, 196, 173, 10, 1 

96,208, 190, 173 

DATA  6,  196,201,255,2 

40, 10, 173,9 

DATA  196,208, 5, 56, 17 

6, 170, 176, 149 

DATA  173,0, 196, 133, 2 

HC  3520 

,212, 160,6 

DATA  145,212,200,145 

,212, 160, 4, 177 

EE  290 

SCREEN»=SCR«:POKE  93, 
PEEK (PEEK (94) +PEEK (95 

il)3120 

JP3530 

DATA  212,72,200, 177, 
212, 133, 213, 104 

PE  300 

) t256) :?  DN»;UP«j 
C=0:CONSOLE-0!POSITIO 

££3130 

1C3540 

DATA  133,212,56,176, 
221 , 162, 23, 169 

N  25,4!?  FN«(1,LEN(FN 
*>-4) ;P0SITION  37-(MA 

OK  3140 
C8  31S0 

KP  3550 
IL  3560 

DATA  0, 157, 3,48, 202, 
16,250, 141 

DATA  0,48, 141, 1,4B, 1 
69,27, 133 

JE  310 

CNUM>99)- (MACNUM>9)  ,  5 
:?  MACNUM 

POSITION  37-(LEN(FIL« 
) >999)- (LEN (FIL*) >99) 

IE  3160 
OJ  3170 

CI  3570 
DF  3580 

DATA  12, 169, 48, 133, 1 
3, 169, 56, 141 
DATA  8,2, 169,48, 141, 
9, 2, 169 

BL  320 

- (LEN(FIL*) >9) ,6! ?  LE 
N (FIL«) 

POSITION  2S,S:REST0RE 
AUTD■^3000:  READ  CODES 

B8  3180 

LJ  3590 

DATA  34, 141 , 40,2, 169 
,4S, 141,41 

:  IF  LEN(CDDE*)  >14  THE 
N  CODES( 10) =C0DE*(12) 

BO  3190 

HC  3600 

DATA  2, 162,0, 142,27, 
2,232, 142 

LP  330 

: CDDE«(4) =C0DE*(6) 
POSITION  23,8:?  CODE* 

H6  3200 
NO  3210 

1 2, 173 ,1,1 96 

DATA  133,213,173,6,1 

96,201 ,255,240 

DATA  102, 173, 9, 196, 2 

01, 1 ,208,41 

DATA  32, 175, 197, 144, 

126, 173, 200, 2 

OJ  3610 
EP  3620 

DATA  26,2, 169, 126, 14 
1,231,2, 169 
DATA  48, 141,232,2,96 
, 255,0,0 

KK  340 
LB  350 

; : OFFSET=132!L=10 
GDSUB  120 

IF  C0DE=15  OR  C0DE=69 
THEN  DFFSET  =  0FFSET-f4 

EJ  3220 

K  3  6  30 
AC  3640 

DATA  0,0, 0,0,0,0,0,0 
DATA  0,0,0,0,0,0,0,2 

LB  360 

0-240* (0FFSET>292) 

IF  C0DE=14  OR  CDDE=7B 

24 

THEN  0FFSET=OFFSET-4 

(IP  3230 

DATA  73,68,  141  ,200,2 

CJ  3650 

DATA  2,225,2,248,50, 

0+2  40* (0FFSET<172) 

, 165,212, 141 

32 

EH  370 

IF  CDDE=42  OR  CODE=10 

BN  3240 

DATA  0, 196, 165,213, 1 

6  OR  0FFSET=132  AND  C 

U  3250 

41,1, 196,238 

DATA  9, 196, 160,3, 169 

Program  2:  Softkey  Editor 

0DE=12  DR  DFFSET=132 
AND  C0DE=76  THEN  GOSU 

,0, 145,212 

HP  10  REM  COPYRIGHT  19B8  COM 

B  4a0;GDTD  290 

PK  3260 

DATA  141,4, 196, 141,5 

PUTE!  PUBLICATIONS,   IN 

JE  3B0 

IF  CDDE=62  OR  C0DE=12 

, 196,76, 197 

C 

ALL  RIGHTS  RESERVE 

6  DR  0FFSET=212  AND  C 

BB3270 

DATA  196, 160,2, 177,2 

D 

, 

0DE=12  DR  0FFSET=212 

12, 160,3,209 

Jfl20  PRINT  " CCLEAR>CQPYRIBH 

AND  CDDE=76  THEN  BOSU 

flD32S0 

DATA  212,240,66,24, 1 

T 

19Ba":PRINT  "COMPUTE 

B  1110:6OTO  290 

77,212, 105, 1 

! 

PUBLICATIONS,  INC."s 

m  390 

IF  CODE=0  OR  C0DE=64 

FB  3290 

DATA  145,212, 169, 7,2 

PRINT  "ALL  RIGHTS  RESE 

OR  0FFBET=172  AND  COD 

4, 113,212, 168 

RVED. " 

E=12  OR  0FFSET=172  AN 

FH  3300 

DATA  173,6, 196, 145,2 

OK  30  FOR  TT=1  TO  1500:NEXT 

D  CaDE=76  THEN  BOSUB 

12,32, 175, 197 

TT 

1300:OFFSeT=172!L=10: 

C6  33  10 

DATA  176, 156, 173, 6, 1 

NN  80  DIM  SCREEN*  (1)  :SCREEN« 

GOTO  290 

96, 170, 41,63 

n 

"":60SUB  1940;GDTO  29 

so  400 

IF  CQDE=18  OR  C0DE=82 

ND  3320 

DATA  201 , 17, 20B, 5, 14 

0 

OR  DFFSET=252  AND  CO 

2,220,2,240 

EN  90  REM 

DE=12  DR  DFFSET=252  A 

PO  3330 

DATA  3, 142,252,2,56, 

OC  100 

REM  READ  KEYBOARD 

ND  CDDE=76  THEN  BOSUB 

176, 199, 173 

HS  1  10 

REM 

1750; DFFSET=252: L=10 

AE  3340 

DATA  9, 196, 208, 17,23 

SO  120 

FLASH=0 

sGOTO  290 

8, 9, 196, 173 

DL  130 

FLASH=FLASH+ls IF  FLAS 

KD  410 

IF  CaDE=63  OR  C0DE=12 
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7  OR  aFFSET=292  AND  C 

L»)+l )=CHR« (LEN(MflC2* 

EH  1140 

IF  KEY=15S  THEN  CFLA 

0DE=12  DR  0FFSET=292 

) ) sFIL* (LEN (FIL«) +1 )= 

a«0:BaTO  .^20 

ftND  C0DE=76  THEN  GOSU 

MAC2«: MACNUM=MACNUM+1 

ON  1150 

IF  KEY=27  THEN  CFLAB 

B  1040! DFFSET=292:L=1 

HL  740 

RETURN 

=0:GOTO  290 

0:GQTO  290 

I(  750 

REM 

HD  1160 

IF  KeY=126  AND  CH=0 

n  760 

REM  KEY  ALREADY  DEFIN 

THEN  1200 

HD  420 

IF  C0DE=16  OR  CODE=B0 

ED? 

IP  1170 

IF  KEY=126  THEN  SCRE 

OR  0FFSET=332  AND  CO 

IC  770 

REM 

EN* (OFFSET, OFFSET+4) 

DE=12  OR  0FFSET=332  A 

;K  780 

CHP0S=1 

■="tN>3/S<t,}":CH  =  CH-( 

ND  C0DE=76  THEN  BDSUB 

CI  790 

IF  CHPOS>LEN tFIL«)   TH 

CH>0) ;OFFSET=OFFSET- 

1790:GOTa  290 

EN  RETURN 

(CH>-1 ) : GOTO  1200 

a  430 

IF  CQDE=47  OR  CDDE=11 

SC  800 

SKIP=ASC(FILS (CHPDS+1 

U   11B0 

POSITION  4+CH,ll:?  C 

1  THEN  POKE  752,0:POS 

,CHPQS+1> ) 

HR*(KEY) ; UP*; 

ITION  0,21:END 

ID  810 

IF  FIL* (CHPDS, CHPOS)= 

JI  1190 

IF  CH<8  THEN  OFFSET= 

BI  440 

6DT0  340 

MACKEY*  THEN  920 

DFFSET+1 : CH=CH+1 

m  4  50 

REM 

(11820 

CHP0S=CHP0S+SKIP+2i BO 

IE  1200 

SCREEN* (DFFSET+l  ,  OFF 

IN  460 

REM  EDIT  KEY 

TD  790 

SET-H4)  =  "  IN}  3/8<" 

HP  470 

REM 

KP  830 

REM 

NC  1210 

GOTO  1 130 

BO  480 

CDNS0LE=1:TEMP«= MA 

SI  840 

REM  ABORT  -  NO  CHAN8E 

II  1220 

POSITION  0,11: POKE  8 

C1*="";MAC2*="":MAC3» 

IB  850 

REM 

42, 13: INPUT  FN*: POKE 

=""!SCREEN»{401,441)= 

IIB  860 

IF  LEN(MAC3»)=0  THEN 

B42, 12: POSITION  0,1 

■■  1  <9  ,  >0rBS5{,  >+ey 

B80 

1  :  ?  "  1  "  ; 

C,  >to<,  >»e-f  lnetl0  ,  J  1 

ID  B70 

FIL«(LEN(FIL*) +1 )=CHR 

DE  1230 

I=LEN(FN«) 

* (MACKEY) :FIL« (LEN (FI 

BC  1240 

IF  FN*  (1,1)  =  "  "  THEN 

DS  490 

DFFSET=409:L=2l!BOSUB 

L*)+l )=CHR*(LeN(MAC3« 

^  '             ■■■^i-^j^j                lit  ^_  J  ^ 

I=I-l:FN*=FNt(l, I) : 

120;  MACt<EY  =  CODE  SMACK 

) ! :FIL»(LEN{FIL$)+1)= 

GOTO  1240 

EY«=CHR*(MACKEY) : IF  C 

MAC3$; MACNUM=MACNUM+1 

a  1250 

OPEN  #2, 8, 0, FN*: PUT 

DDE=255  THEN  4B0 

lA  880 

RETURN 

#2, MACNUM: PUT  #2,AUT 

DC  500 

SCREEN* C 401 , 481)=" Ite 

IF  B90 

REM 

0:FDR  1=1  TO  LEN(FIL 

f iningt, >+ey<Z><25  ,} 
1  lU-Sit,  >  CDDWNX,  >»el 

HK  900 

REM  PREVIOUSLY  DEFINE 
D  KEY 

«)  :PUT  *t2,  ASC(FIL«(I 
,  1  )  )  :NEXT  I 

t,}key<:2  ,>K'rJK,> 

HO  910 

REM 

KO  1260 

CLOSE  #2: RETURN 

{D0WN>C,>*cinB{2  ,  >»i?Tf? 
t,  XIDOWNX,  }  !  bort  1  " 
POSITION  15,10:?  CODE 

FS  920 

MAC2*=FIL* (CHPDS+2, CH 

KO  1270 

REM 

n  510 

POS+1+SKIP) jMAC3»=MAC 
2* 

lA  12B0 
LA  1290 

REM  READ  DIRECTORY 
REM 

»; : DFFSET=520}L=l!POS 
ITION  0,13 
SOSUB  780 

ftH930 

FOR  1=1  TO  LEN(MAC2*) 

on  1300 

DR«="":SCREEN*(401,4 

L6  520 

;RESTORE  ASC<MAC2«(I, 

80)="  1  {38  ,  >  1  1  <:3B  ,  > 

DF  530 

GOSUB  120: IF  C0NS<7  T 
HEN  570 

I) )+3000;READ  CODE*:? 
CODE*!  : MACl*  (LEN (MAC 

DI  1310 

OPEN  #2,6,0, "D: * . SOF 

flO540 

IF  OFFSET+LENCCGDES) > 
959  THEN  ?  CHR«(253)! 
:BOTO  530 

SL  940 

1«>+1}=CDDE»:NEXT  I 
OFFSET=OFFSET+LEN(MAC 
1») ; IF  CHPDS=1  THEN  9 

FA  1320 
HF  1330 

INPUT  #2;F* 

IF  F*(5,8) ="FREe"  TH 

60 

EN  DR*(LEN(DR«)+1 )=F 

fP550 

OFFSET=OFFSET+LEN(COD 

E«) 

?  CODE*; : MflCl«(LEN(MA 

IN  9  50 

TEMP«=FIL» (1,CHP0S-1) 

*(1,16):G0T0  1350 

BF560 

O£960 

IF  CHP0S+2+SKIP>=LEN( 
FIL*)  THEN  9R(i 

At  1340 

DR*(LENCDR*)+1)=F*(3 
,10):6OTO  1320 

Cl») +1 ) =CaDE*:MAC2»(L 
eN(MAC2»! +1 ) =CHR»(COD 
e):PDKE  764,255:S0T0 

530 

IF  CDNS=5  THEN  720 

FF970 

1   A  ^—  ^   '      III  1^  1  ^     J    LJ  C/ 

TEMP* (LEN ( TEMP* )+i>=F 
IL*(CHP0S+2+SKIP,LEN( 
FIL») ) 

JI  1350 

m  1360 

Hf  1370 

CLOSE  #2 

DRL=LEN(DR*) 

FDR  1=1  TO  DRL:DR«(I 

JI  570 

10  980 

FIL*=TEMP*: MACNUM=MAC 
NUM-1 

,  I ) =CHR*(ASC  (DR*  (1,1 
) ) -32) : NEXT  I 

JF  580 
W  590 
KK  600 

IF  CDNS=6  THEN  860 
IF  CDNB03  THEN  490 
REM 

Hf  9  90 

IF  OFFSET>960  THEN  OF 
FSET=OFF3ET-40s8OTO  9 

ID  1380 

IF  LEN(DR*><17  THEN 
POSITION  1,4:?  "  BIDH 

90 

l*y^=i.iB";  l.'HHS  (VS3)  ;  FO 

68  610 

REM  DELETE  LAST  KEY  P 
RESSED 

tf  1000 

RETURN 

R  1=1  TO  350:NEXT  I: 

(S  1010 

REM 

GOTO  1530 

HII  620 

REM 

LD  630 

IF  LEN(MAC2»)=0  THEN 

M  10  20 

REM  AUTO  KEY 

PL  1390 

SCREEN* (412, 4  28 )=DR« 

530 

Kl   1030 

REM 

(DRL-i6,DRL) :DRL=DRL 

D9  1040 

SCREeN*(401 , 481>=" 1 

-16:DR*(DRL+1 )="";DR 

je640 

SOUND  0,20, 10,6!RESTO 

{9  , >0resst, >+eyt, Jt 

E=DRL/B-1 

RE  ASC(MAC2»(LEN(MAC2 

oC,  J  (iitorunC9  ,  }  1  1 

CC  1400 

SCREEN*(441, 480)=" 1 

•) , LEN(MAC2») ) )+3000 

t, }0reBs{, } CUP>3hlf t 

{,  }\]<F><UP}2y.452. 

EJ  650 

READ  CODE$;FOR  1=1  TD 

{LEFT>CUP>#trl  <:LEFT> 

<LEFT><, >toC, > Select 

LEN(CODE«) : OFFSET=OF 

{UP>Xsc<LEFT}<,>for 

<2  ,  >{up>-/.3#<:left> 

FBET-1:PDKE  SCRMEM+DF 

t,>nD{,>auto<,>l" 

C,  >toC,  >7.xit{,  >  1  " 

FSET, 0: MACl* (LEN{MAC1 

HL  10  50 

DFF3ET  =  409: L  =  22:  GOSU 

ND  1410 

FOR  1=0  TO  5: IF  ( I«B 

*)>="" 

B  120 

)+l>LEN(DR»)  THEN  PO 

KF  660 

IF  PEEK05)  >0  THEN  PO 

FI  1060 

AUTO=CODE 

P  :GOTO  1440 

KE  85,PEEK (B5) -1: BOTQ 

n  1070 

RETURN 

IK  1420 

SCREEN* (123+ ( 1*40) , 1 

680 

KN  1080 

REM 

23+7+ ( 1*40) ) =DR*( l+( 

BC670 

POKE  85,39!PQKE  84, PE 

FN  1090 

REM  SAVE  FILE 

I»B) ,8+ ( IfS) ) 

EK  C84) -1 

K6  1100 

REM 

FA  1430 

NEXT  I 

I1C680 

NEXT  1 :MAC2* (LEN(MftC2 

PD  1110 

SCREEN*  (401  ,  480)  =  "  1 1< 

AF  1440 

DFFSET=121 : L=10: DRC= 

»))="":SaUND  0,0,0,0; 

lleC,  >name<:Z>{12  ,J 

0 

SOTO  530 

{UP>X3#tLEFTJ  C,>tD 

PC  1450 

SFLAB=l:GaSUB  120 

ID  690 

REM 

{,  J-/.xit(:3  ,  >  I  1  C3B  ,  > 

KK  1460 

IF  CaDE=15  OR  CDDE=6 

CH  700 

REM  SELECT  -  BTOPB  ED 

1  " 

9  THEN  IF  DFFSET=321 

IT 

DL  1  120 

POSITION  1, ll! ?  FN*; 

AND  DRC<DRE  THEN  DR 

H(l  710 

REM 

:L=1 ; CH=LEN(FN*) -7: 0 

C=DRC+1 : GOSUB  1660:6 

16  720 

IF  LEN(MAC2«)=0  THEN 

FF3ET=444  +  CHi  CFLAB-1 

OTD  1520 

740 

KB  1130 

GOSUB  120; IF   NOT  TY 

EC  1470 

IF  CGDE=15  OR  C0DE=6 

]n   730 

FIL*(LEN<FIL«)+1)=CHR 

PE  THEN  ?  CHR* (253) ; 

9  THEN  DFFSET=OFFSET 

«(MACKEY) ;FIL« (LENCFI 

:QOTa  1130 

+40* (0FFSET<321  AND 
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(OFFSET/40)-3<-DRE) : 

BK  18S0 

IF  K>199  THEN  POS I T I 

<,> 1 l.ykilei, >3pec 

DRC  =  DRC+1»  <DRE>DRC> 

ON  SC- { INT (SC/40) *40 

{Z}<5  ,>  t  t  <10  , > 1 

DC  1480 

IF  CaDE=14  OR  C0DE=7 

) , INT(SC/40) : ?  CODE* 

{, J.oadtS  , >  1  (16  , > 1 

8  THEN  IF  0FFSET=121 

{13, LEN(CODE»)  )  i  :SC  = 

II 

AND  DRO0  THEN  DRC  = 

SC  +  LEN(CODE») -12:  GOT 

DC  2090 

SCR«(LEN(SCR»)+1)=" I 

DRC-1:BDSUB  1690sGOT 

0  1890 

(10  ,  >  1  {,  >3*vet5  ,  J  1 

D  1520 

BJ  1860 

IF  K>127  THEN  PDSITI 

t , >+eysC, >55ed tZJ 

m   1490 

IF  C0DE=14  OR  C0DE=7 

ON  C-(INT (C/40) *40) , 

{5  , > 1 1 C10  , > 1 t, >#le 

8  THEN  OFFSET=DFFSET 

INT(C/40) : ?  CODE* (7, 

arC4  ,>!{,>'■ 

-40* ( OFFSET > 160)  :  DRC 

LEN(CODE«)  )  i  tC  =  C  +  LEN 

0(2  100 

SCR* (L EN (SCR*) +1 ) =CH 

=DRC-lt(DRC>0) 

(CODE*) -6: BOTO  1890 

R*  (34)  : SCR* (LEN(SCR* 

CD  1500 

IF  CQDe=12  OR  C0DE=7 

LD  1870 

IF  K>63  THEN  POSITIO 

)  +  1  ) ="ytesf ,  >55ed 

6  THEN  SOSUB  1570:60 

N  S- ( INT(S/40) «40) , I 

CZ>C4  , } 1 " 

TO  1530 

NT (S/40) : ?  CODE*; :S= 

KN  2  1  I  0 

SCR*(LEN(SCR*)+1)=" 1 

KE  1 S  1  0 

IF  C0DE=2e  OR  C0DE=9 

S+LEN(CODE*> SSOTO  18 

tl0  ,> 1 C,> !utoC, >+ey 

2  THEN  1530 

90 

{,  >  (  t,  >  !uto<:,  }+ey 

in.  1520 

8DT0  1450 

}n  1880 

POSITION  L-(INT(L/40 

tzj<6  ,  >  1  1  <;i0  ,  >  1 

U   1530 

RETURN 

) *40) , INT(L/40) :?  CO 

C,  >6iGwC, >  !  11 C, J  1 

KO  1540 

REM 

DE«; ; L=L+LEN (CODE*) 

£  1  6  ,  J  1  " 

OP  1550 

REM  LOAD  FILE 

fit  1898 

J«=J  +  SKIP  +  2;  SOUND  0,6 

Pi  2120 

SCR* (LEN (3CR«) +1) ="A 

LA  1560 

REM 

, 10, 12!S0UND  0,0,0,0 

RRRRRRRRRRXRRRRRRRRR 

HC  1570 

TEMP«=DR«( (DRC»a>+l, 

:B0T0  1840 

RXRRRRRRRRRRRRRRRRD" 

(DRC*S) +8) 

LP  1900 

POSITION  0,22>?  "PRE 

Pfl  2130 

SCR«(LEN(3CR»)+l)=" 1 

FE  1580 

FOR  1  =  1  TO  BsTEMPUd 

SS  ANY  KEY  TO  CONTIN 

C9  , >3%, X#4C, J-1 ) . 

, I)=CHR«(ASC<TEMP«(I 

UE":(3ET  #1,KEY:RETUR 

{, >#/ ! .*{10  , > 1 1 

, I ) ) +32) :NEXT  I: 1=8 

N 

tss  , > 1 " 

KP  1910 

REM 

6C  2140 

SCR*(LEN(SCR«)+1)="Z 

JF  1590 

IF  TEMP* (1,1)="  "  TH 

HI  1920 

REM  INITIALIZATION 

RRRRRRRRRRRRCPIX^SE 

EN  TEMP* ( I )="": 1=1-1 

LB  1930 

REM 

<ll>EeiEa»i{^J  CF>RRRRR 

: GOTO  1 590 

GO  1940 

GRAPHICS  0:PDKE  710, 

RRRRRRRC" 

OS  160  0 

TEMP* (LEN( TEMP* >+l)= 

0!paKE  709,12!POKE  7 

SS2150 

SCR* (LEN(SCR»)+1) =BL 

FN*(LEN<FN*)-3) 

52,1: POKE  730,  Is  POKE 

«(LEN (5CR«) +1, 960) 

FS  1  6  1  0 

FN»(4>=TEMP«: FIL»=" " 

729,24!P0KE  82,0:PO 

CJ  2  160 

RETURN 

Fll  1620 

OPEN  #2,4, 0, FN*: BET 

KE  732,81 

to  2170 

REM 

*2,MACNUM; BET  »2,AUT 

NJ  1950 

VAR1=PEEK(134)+PEEK( 

NB2180 

REM  DATA  STATEMENTS 

OsTRAP  1640 

135) *256:P0KE  VAR  1 ,  1 

AC  2  190 

REM  f>Ti^mi m:i d:\ia\-.i=i:m 

HO  1630 

OET  #2,KEy:FIL*{LEN( 

31 

b  rrk  i-'^i  ^  tf  ik  4 1 L'  pj 

FIL*)+1)=CHR*(KEY) :G 

m  1 960 

POKE  VAR1+2,PEEK (88) 

Kl  2Z00 

REM 

OTO  1630 

: POKE  VAR1+3,PEEK (89 

KG  3000 

DATA  1 , 1 

PL  1640 

CLOSE  #2: TRAP  40000 

) 

KF  3001 

DATA  j,l 

Kit  1650 

RETURN 

HD  1970 

POKE  VARl+4, 192iP0KE 

HG  3002 

DATA  ; ,0 

U   1660 

FOR  1=0  TO  4:SCREEN* 

VARl+5,3:POKE  VAR1+ 

KK  3005 

DATA  k, 1 

(123+1*40, 130+1*40)= 

6,  192:PDKE  VARl  +  7, 3 

BK  3006 

DATA  +.0 

SCREEN* ( 163  +  1*40,  170 

IB  19B0 

DIM  CODE* (26) , MACKEY 

GK  3007 

DATA  t,0 

+1*40) :NEXT  I 

«(1) ,SCR* (960) ,MAC1* 

LB  3008 

DATA  Q, 1 

ltd  1670 

SCREEN* ( 12  3+ ( 1*40) , 1 

(1000) ,MAC2* (256) , MA 

KL  3010 

DATA  p, 1 

23+7+ C 1*40) )=DR« (1+ ( 

C3«(256) ,FIL*(3000) , 

LB  3011 

DATA  u, 1 

DRC*8) ,8+(DRCta) ) 

TEMP*(3000) ,BL»(96a) 

Pi  30  12 

DATA  <RETN>,2 

«:P  1680 

RETURN 

,FN«(15) 

KK30  13 

DATA  i,  1 

m  1690 

FOR  1=4  TO  0  STEP  -1 

KE  1990 

DIM  DR« (1 152) , F* ( IS) 

GL  30  14 

DATA  -,0 

: SCREEN* (163+1*40,  17 

,DRN*(I5» ,UP« (1) ,DN* 

HH  30  15 

DATA  =,0 

0+I«40)=SCREEN»(123+ 

(1) , INVERT* (40) 

LH3016 

DATA  V, I 

1*40,  130+1*40)  !  NE)(T 

FI  2000 

DRN*="Dli  *.SDF":FN*  = 

KG  3018 

DATA  c,  1 

I 

"Dl ! . SOF":UP«=CHR* (2 

JP  302  1 

DATA  b,  1 

JO  1700 

SCREEN* (123, 130) =DR* 

8) : DN«=CHRt (29) 

L6  3022 

DATA  X, 1 

(1+(DRC*8) ,B+CDRC*B) 

BP  2010 

BL*="  <:,>"!BL*  (960)=B 

LJ  3023 

DATA  z, 1 

H  1710 

) 
RETURN 

ilD  2020 

L«: BL*(2)=BL« 
SCRMEM=PEEK (8a)+PEEK 

HF  3024 
H&  3026 

DATA  4,2 
DATA  3,2 

KO  1720 

REM 

(89) (256: AUT0=255 

HK  3027 

DATA  6,2 

DG  1730 

REM  CLEAR  FILE 

FB  2030 

REM  6TH  character  in 

n  3028 

DATA  <ESC>,2 

Lfl 1740 

REM 

INVERSE*  in  the  lin 

HL  3029 

DATA  5,2 

III  1750 

LC  1760 
PC  1770 

FN*="D1: .SDF"!FIL*=" 

":DR«=" ":MACNUM  =  0:  AU 

T0=255:RETURN 

REM 

REM  VIEW  ALL  DEFINED 

KEYS 
REM 
POSITION  14,12!?  "CH 

POSITION  0,13:?  "C^ 
t*KK^i:rM:S54VW  !  SC  =  5 
3B 

PI  2040 

e  below  is  a  <CTRL  M 

> 

INVERT*="hGCA><:.Jtj 

HA  3030 
HS303  1 
CF  3032 

DATA  2,2 
DATA  1,2 
DATA  <COMMA>,0 

cB>n:cH>e»ih5Ecn>r:Eh 
t[i}[Eh{:[=>nhheBCA> ) 

CF  3033 
HA  3034 

DATA  <SPACE>,0 
DATA  .,2 

LE  1780 
PR  1790 

Ln  1800 

PO  2050 
LI  2060 

<:tab>i**ii  {|!>  <ejd<:[i> 
cp>3:{.  >" 

OPEN  #1, 4, 0,  "K: " 
SCR*="QRRRRRRRRCB}ES 

'.  iCiaaei!a«iEW3a*iTs^R 

LA  3035 
LI  3037 

HI  3038 
Fl  303  9 

LA  3040 

DATA  n, 1 
DATA  m,l 
DATA  /,0 
DATA  <INVR3>,0 
DATA  r,  1 

RRRRRRREI  C3B  ,  >  1  " 

KF  30  4  2 

DATA  e,  1 

Ln206  1 

SCR* ( IB, ie>=CHR« ( 12B 

LK  3043 

DATA  y, 1 
DATA  <TAB>,0 
DATA  t , 1 

LS  1  8  1  0 

POSITION  0,15:?  "Cfcij 

rrriWTT^**!"  :  C  =  6  1  2 

)  i  SCR*  (24,24) =CHR* ( 1 
28) ; SCR* (31,31 )=CHR* 

JC3044 
LH  3045 

Vi   1820 

POSITION  0,17:?  "l^C 

JH  2070 

(  128) 

SCR* (LEN(SCR«)+1] ="A 

LL3046 
L6  3047 

DATA  w, 1 
DATA  q,  1 
DATA  9,2 
DATA  0,2 

{W*TJWfWl"  iS  =  b92 

LE  1830 

POSITION  0,19:?  "rm? 
LMlM  H :  W-l -MaitLtJJ  "  :  L  -  /  /  / 

^^  1—1   ««   J-^         M        1-4  tfV  rf^         •*                        J 

tii}a<:c!i>  <ny  <b>  <ci>fewv' 

IA304B 

m  3050 

: TRAP  1900: J= 1 

t  B>  w  <:  BJ  fT^^aE  c  H>  ;3»! 

HI  3051 

DATA  7,2 

AP  1840 

K  =  ASC(FI.L*(  J)  )  :SKIP  = 

(S{^>C2  B>D" 

D]  3052 

DATA  <BflCKSPACE>, 2 

flSC(FIL«(J+l ) ) :RESTD 

NE  2080 

SCR* (LEN{SCR«)+1)=" 1 

HL  3053 

DATA  8,2 

RE  K+3000:READ  CODE* 

tia  ,  >  1  t,  >-/.ditC,  >+ey 

HO  3054 

DATA  <,0 
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Discover  the  quality 
magnetic  media  from  3M 


avi" 

DIskeKes 


3M  DlBketlGS 

SSDDRH i  .69  Ea. 

DSDDRH $  .79  Ea. 

DSHD9eTPI  II.MEb. 

SS  MICRO SI.OSEa. 

DS  MICRO JI.SSEa. 

DSHD  MICRO M.45£a 

Mln.:  50  Di$ks. 


Sold  W/Box 

S  i  H   JJ  00,  f  IRST  lOOOH  FEWEn  DISKS, 
taw  EACHSUCCEEDIHC  lOOOaFEWEH  DISKETTES 

Lei  HAMMERMILL  Computer 
Papers  do  the  paperwork. 


PEN  PLOnER  PAPER 
Use  with  Hewlelt  Packard  & 
other  comiulible  p«n  plotter 
printers,  wriite,  24  lb,.  S'/i  x 
11  sheets  #$9935.  250 
sheets.  Plus  $2  00  S&H 

U.95 
THERMAL  TRANSFER  PAPER 
For  Apple  Scribe.  Oliiinale 
10/20  and  olhei  ETC.  Un- 
coated  while  20  lb,  paper, 
#19900  250  lantold  pinleed 
sheets.  Pius  $2.00  S&H 

$8.95 
#19905  250  cut  97;  <  11 
sheets.  Pius  12  00  S&H 

$3.95 


INK  JET  PAPER 
Made  exclusively  tor  ink  }et 
printer,  such  as  Hp  Thinkjet. 
While  20  lb,  paper.  9'/;  k  n. 
continuous  lantolb.  Detached 
si!e  i'/i  X  11  #19911  1000 
sheets  Pius  S5  00  SiH 

WATERMARKED  BOND  PAPER 
lor  Word  Procotsing  Prtnteri 
Quality,  watermarked  20  lb. 
bond  ;^per  in  coniirucus 
lorm.  Clean  edge  perl.  White, 
lanlold.  9'/;  k  11.  detached 
si;e  B'/i  X  11  #19921  lOOO 
sheets.  Pius  S5  00  S&H 

$34.95 


MINIMUM  ORDER  SIS  00  SiM  ConliTiental  USA  FtKOign 
Orders.  AP0/FFK3.  plosse  call  Ml  residents  adO  J»ilaj(  CO  D 
ado  W.00;  payment  witfi  cash,  cerlilted  ctieck  or  money  order 
Pnees  subjed  lo  cria.nge  Hoijrs.  8  30  AM"7:00  PM  ET. 

Call  for  FREE  CATALOC 


P 


d 


Precision  Data  Products" 

P  0  Bdm  S3£7,  Giana  Rapids.  Ml  49516 
(6161  452  3457  ■  FAX  16161  452  4914 
Michigan  I  BOO  632  2468 
Ouls.ae  Wicrnjjan  1-800  2580026 


LEARN 


MASTER  COMPUTERS 
IN  YOUR  OWN  HOME 

■w  wu  can  write  prcgrans^  arnt  get  g 
:npuler  lo  do  JJSI  wtial  you  want  Get  the 
csl  out  Dt  any  computer  and  avcitt  fuving 
■  pay  Ihe  high  ptice  ot  pre-pachdgcd 


LEARN  AT  YOUR  OWN  PACE 
IN  YOUR  SPARE  TIME 


to  learn  atMut  computers,  operations,  ai^^ 
cations  and  [irogranfning  in  your  spare  time, 
at  ttome  Our  flstructors  providp  ^u  wrth 
one  on  one  counseling 


LEARN  EVEN  BEFORE  YOU  DECIDE  ON  A  COMPUTER 

:¥Erything  is  explained  in  simple  language.  You  will  enjoy  leamihg  10 
jse  a  compulEf-EVEN  IF  YOU  DON'T  OWN  ONE.  Leam  lo  ixogram  on 
any  personal  compuler  IBM.  APPl£.  COMMOOOHE,  TBS.  and  more. 

BE  YOUR  OWN  COMPUTER  EXPERT 

frogrjiiinilBj  is  Ihe  test  wiy  lo  learn  lo  use  compultrs.  and  we  cm 
duw  you  Uie  besl-and  moil  ecgnamiMl-way  u  learn  pro{raiiiiniiigl 
Send  today  for  your  tree  inlormalioo  package.  No  oWig.5iion.  No 
salesman  will  cati. 
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INSIHUTE 


CENTER  FOR  COMF=UTER  EDUCATION 


Sins  »iv)n«ta  Rtti»t  Lm  «inQ*i«  CA  Vtl'jJ  79» 


1 


MALIK  iN^IllUTECENTtH  FOfl  CDMPu!EH£IX>CAllON  DEPT  61 ' 
S10  S  lUvaradQ  S»Ht  tm  AnqeW  CA  90057.2996 


YES'     bend  rm  niormguun  on  how  I  ur  team  abou^  ccripulf!^  JnU  QfO 


L. 


IE  3055 

DATA 

>.» 

NG  3160 

DATA 

<CTRL><COMMA>,0 

KL  3056 

DATA 

f  ,1 

NB  3  1  6  1 

DATA 

<CTRL><SPACE>,0 

KO  3057 

DATA 

h,l 

BP  3162 

DATA 

<CTRL>. ,0 

KL  3058 

DATA 

d,l 

EA  3  1  6  3 

DATA 

<CTRL>N,0 

DA  3060 

DATA 

<CAPS>,0 

EB3  16S 

DATA 

<CTRL>M,0 

el  3061 

DATA 

g,l 

CE  3  1  6  6 

DATA 

<CTRL>/,0 

LP  3062 

DATA 

s.  1 

flC3  167 

DATA 

<CTRL>< INVRS>,0 

KE  3063 

DATA 

a,  1 

EJ  3168 

DATA 

<CTRL>R, 0 

JB3064 

DATA 

L,2 

DF3170 

DATA 

<CTRL>E, 0 

Jft  3065 

DATA 

J, 2 

EIC  3  1  7  1 

DATA 

<CTRL>Y, 0 

IB  3066 

DATA 

!.2 

ES3172 

DATA 

<CTRL><TAB>, 0 

JF  306"? 

DATA 

K,2 

EH3173 

DATA 

<CTRL>T, 0 

Jn3070 

DATA 

N,0 

EL  3174 

DATA 

<CTRL>W, 0 

Jf  3071 

DATA 

-,0 

£B  3175 

DATA 

<CTRL>Q, 0 

JP3072 

DATA 

0,2 

CP  3176 

DATA 

<CTRL>9,0 

J6  3074 

DATA 

P. 2 

C!  3178 

DATA 

<CTRL>0, 0 

JI13a75 

DATA 

U,2 

DA  3179 

DATA 

<CTRL>7,0 

PL  3076 

DATA 

<RETN>, 2 

!L  31B0 

DATA 

<CTRL><DEL-CHAR 

JC  3077 

DATA 

1,2 

>,0 

KH  3073 

DATA 

_,0 

CK  3  1  S  1 

DATA 

<CTRL>B,0 

NF  3079 

DATA 

1  ,0 

CP  3182 

DATA 

<CTRL><,0 

}}   3080 

DATA 

V,2 

KD  3183 

DATA 

<CTRL><INS-CHAR 

II  3082 

DATA 

C,2 

>,0 

IK  3085 

DATA 

B,2 

DL  3 1  a  4 

DATA 

<CTRL>F,0 

KB  3086 

DATA 

X,2 

DO  3  185 

DATA 

<CTRL>H,0 

KE  3087 

DATA 

Z,2 

DL  3  186 

DATA 

<CTRL>D,0 

EN  3088 

DATA 

*,0 

JK  31B8 

DATA 

<GTRL><CAPS>,  0 

BF  3090 

DATA 

#,0 

EB  3189 

DATA 

<c:trl>g,  0 

GJ  3091 

DATA 

&,  0 

EF  3190 

DATA 

<CTRL>S, 0 

Bi;  3093 

DATA 

r.,0 

DE  3  1  9  1 

DATA 

<CTRL>A, 0 

61  3094 

DATA 

",0 

0!  3200 

DATA 

<SHFT><CTRL>D, 0 

61  3095 

DATA 

!.0 

OL  3202 

DATA 

<SHFT><CTRL>P, 0 

0  3096 

DATA 

E,0 

PJ  3203 

DATA 

<SHFT><CTRL>U,0 

KH3098 

DATA 

3,0 

FA  3204 

DATA 

<SHFT><CTRL><RE 

JL3099 

DATA 

N,2 

TN>,0                  1 

1(3101 

DATA 

M,2 

OK  3205 

DATA 

<SHFT><CTRL>I,0 

HL  3  102 

DATA 

7,0 

nn  3206 

DATA 

<SHFT><CTRL>-,0 

PI  3  103 

DATA 

<SHFT><INVRS>,0 

KK  3207 

DATA 

<SHFT><CTRL>=,0 

JC3  104 

DATA 

R,2 

NE  3216 

DATA 

<SHFT><CTRL>4,0 

IH3106 

DATA 

E,2 

»F  3218 

DATA 

<SHFT><CTRL>3,0 

JB3  107 

DATA 

Y,2 

HJ  3219 

DATA 

<SHFT><CTRL>6.0 

JB  3108 

DATA 

<TAB>,0 

PA  3220 

DATA 

<SHFT><CTRL><ES 

JJ  3  109 

DATA 

T,2 

C>,  0 

JE  3  1  1  0 

DATA 

W,2 

NB  3  22  1 

DATA 

<SHFT><CTRL>5,0 

IP  3111 

DATA 

Q,2 

HP  3222 

DATA 

<SHFT><CTRL>2,0 

GF  3  1  1  2 

DATA 

1,0 

KP  3223 

DATA 

<SHFT><CTRL>1,0 

GI  3  1  1  4 

DATA 

)  ,0 

16  3224 

DATA 

<BHFT><CTRL><CO 

BH  3 1  1  5 

DATA 

'  ,0 

MMA>, 

0 

OF  3  1  1  6 

DATA 

<DEL-LINE>,0 

16  322S 

DATA 

<SHFT><:CTRL><SP 

IC  31  17 

DATA 

3,0 

ACE>, 

0 

CE  3  1  1  B 

DATA 

<CLEAR>,0 

HP  3226 

DATA 

<SHFT><CTRL>. ,0 

PK  3  1  1  9 

DATA 

<INS-LINE>, 0 

PA  3227 

DATA 

<SHFT><CTRL>N, 0 

IE  3120 

DATA 

F,2 

PB  3229 

DATA 

<shft><c;trl>m,  0 

IH  312  1 

DATA 

H,2 

HL  3230 

DATA 

<SHFT><CTRL>/, 0 

IE  3122 

DATA 

D,2 

KJ  3231 

DATA 

<SHFT><CTRL><IN 

Jfl3124 

DATA 

<SHFT><CflPS>,0 

VRS>, 

0 

IK  3125 

DATA 

B,2 

PA  3232 

DATA 

<SHFT><CTRL>R,0 

JH  3126 

DATA 

S,2 

OF  3234 

DATA 

<SHFT><CTRL>E, 0 

IS  3127 

DATA 

A, 2 

pi;  3235 

DATA 

<SHFT><CTRL>Y, 0 

DP  3128 

DATA 

<CTRL>L, 0 

PJ  3236 

DATA 

<shft><ctrl><ta 

DO  3129 

DATA 

<CTRL>J,0 

B>,0 

CH  3130 

DATA 

<CTRL>; ,0 

PH  3237 

DATA 

<SHFT><CTRL>T, 0 

BK  3133 

DATA 

<CTRL>K,0 

PL  3238 

DATA 

<SHFT><CTRL>W, 0 

JF  3134 

DATA 

<CTRL><LEFT>,  0 

PS  3239 

DATA 

<SHFT><CTRL>Q, 0 

OJ  3135 

DATA 

<CTRL><R1BHT>,  0 

HE  3240 

DATA 

<SHFT><CTRL>9, 0 

ES  3136 

DATA 

<CTRL>D, 0 

NP  3242 

DATA 

<SHFT><CTRL>0,0 

EE  3138 

DATA 

<CTRL>P,0 

m  3243 

DATA 

<SHFT><CTRL>7, 0 

EK  3  1  3  9 

DATA 

<CTRL>U, 0 

JI  3244 

DATA 

<5HFT><CTRL><BA 

UZ1A0 

DATA 

<CTRL><RETN>,  0 

CKSPACE>,0               1 

BK  3  1  4  1 

DATA 

<CTRL>I, 0 

KK  3245 

DATA 

<SHFT><CTRL>B, 0 

AG  3142 

DATA 

<CTRL><UP>, 0 

KP  3246 

DATA 

OHFTXCTRLX  ,  0 

KC  3143 

DATA 

<CTRL><DOWN>,  0 

OC  3247 

DATA 

<BHFT><CTRL>>,  0 

EH  3144 

DATA 

<CTRL>-V,  0 

OL  3248 

DATA 

<SHFT><CTRL>F,0 

DG  3146 

DATA 

<CTRL>C,0 

00  3249 

DATA 

<SHFT><CTRL>H,0 

DI  3149 

DATA 

<CTRL>B,0 

OC32S0 

DATA 

<SHFT><CTRL>D,0 

EG  3150 

DATA 

<CTRL>X,0 

EB  3252 

DATA 

<SHFT><CTRL><CA 

EJ  3 1 S  1 

DATA 

<CTRL>Z,0 

PS>,0                     1 

CE  3152 

DATA 

<CTRL>4, 0 

01  3253 

DATA 

<SHFT><CTRL>G,0 

CF  3  154 

DATA 

<CTRL>3,0 

PF  3254 

DATA 

<SHFT><CTRL>S,0 

CJ  3  1  5  5 

DATA 

<CTRL>6, 0 

HP  32SS 

DATA 

-IMDNE-,  0 

IJ  3  1  5  6 

DATA 

<CTRL><ESC>, 0 

© 

CK  3  1  5  7 

DATA 

<CTRL>S, 0 

El  3  158 

DATA 

<CTRL>2, 0 
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Time  Stamp  For  IBM 


Have  you  ever  found  yourself  knee- 
deep  in  printouts,  unsure  which  was 
the  latest  version?  Or  have  you  ever 
wanted  to  check  the  execution  time  of 
a  program  and  had  to  look  for  a  stop- 
watch? If  so,  the  program  accompany- 
ing this  article  is  just  what  you  need. 
With  it,  you  can  stamp  the  system 
time  on  any  screen.  DOS  2.0  or  higher 
IS  required,  along  with  BASICA  for 
the  PC,  GW-BASIC  for  compatibles, 
or  Cartridge  BASIC  for  the  PC  }r. 


One  of  the  nicest  things  about  the 
PC  is  the  PrtSc  key,  which  allows 
you  to  print  the  current  screen.  This 
makes  it  easy  to  get  quick  printouts 
of  portions  of  program  listings, 
spreadsheets,  databases,  or  word 
processor  text.  The  only  problem 
with  using  the  PrtSc  key  is  that  you 
have  no  way  of  knowing  when  a 
particular  screen  was  printed.  If 
you've  been  working  for  several 
hours  and  have  numerous  versions 
of  the  same  screen,  it's  difficult  to 
tell  which  is  the  most  recent. 

"Time  Stamp,"  the  program 
accompanying  this  article,  solves 
this  problem  by  allowing  you  to 
display  the  current  system  time  in 
either  the  upper  right-hand  comer 
of  the  screen  or  on  the  command 
line. 

Getting  Started 

Time  Stamp  is  a  BASIC  loader. 
Type  in  the  program,  save  a  copy  to 
a  disk,  and  then  run  it.  It  will  create 
the  executable  program  called 
SHOWTIME, COM  on  the  same 
disk.  (After  you've  used  the  loader 
to  create  SH0WTIME.COM,  you 
won't  need  it  again.)  You  can  re- 
name SHOWTIME.COM  any  legal 
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filename  you'd  like,  as  long  as  it  has 
an  extension  of  .COM.  To  run  Time 
Stamp,  simply  type  SHOWTIME 
(or  whatever  name  you  used  for  the 
file)  on  the  command  line  at  the 
DOS  prompt.  Your  PC  will  respond 
with 
Resident  code  loaded  at  nnnn 

where  jxnnn  is  Time  Stamp's  ad- 
dress in  the  memory  of  your  partic- 
ular machine. 

Time  Stamp  is  a  resident  utili- 
ty, so  after  loading  it  into  your  PC 
or  compatible,  you  will  always 
have  the  two  Time  Stamp  functions 
available.  The  key  combination  Alt-1 
(holding  down  the  Alt  key  while 
pressing  the  number  1  key  on  the 
top  row  of  the  keyboard),  will  dis- 
play the  current  system  time  in  the 
upper-right  corner  of  the  screen. 
The  key  combination  Alt-2  also  dis- 
plays the  current  system  time,  but 
this  combination  places  the  time 
stamp  at  the  end  of  the  line  the 
cursor  is  on.  (If  you  don't  have  a 
battery-operated  clock  on  your  PC, 
be  sure  to  set  the  correct  time  when 
you  boot  the  system.) 

Using  The  Program 

The  first  of  Time  Stamp's  two  func- 
tions— placing  a  time  stamp  at  the 
top-right  corner  of  the  screen — is 
particularly  useful  when  you're 
writing  a  document  with  a  word 
processor  or  writing  a  program,  and 
you  use  Shift-PrtSc  frequently  to 
keep  a  record  of  your  work.  Each 
piece  of  paper  will  be  stamped  with 
the  time  at  which  it  was  printed,  so 
there  never  will  be  any  doubt  about 
which  is  the  latest  version. 

Using  Time  Stamp  is  simple. 
All  you  need  to  do  to  place  the  time 
stamp  on  your  screen  is  press  the 
Alt-1  combination.  Then  press 
Shift-PrtSc   to  print  your  screen. 


Please  note,  however,  that  some 
applications  may  either  use  the  Alt- 
1  combination  for  a  command 
themselves  or  treat  pressing  it  as  an 
error.  In  either  of  these  situations. 
Time  Stamp  may  not  work  properly. 
The  second  function,  which 
places  a  time  stamp  at  the  end  of  the 
line  on  which  the  cursor  is  currently 
located,  provides  a  convenient  way 
to  check  the  running  time  of  a  pro- 
gram or  a  long  loop  in  a  program. 
Simply  press  Alt-2  immediately 
before  Enter  to  start  your  program, 
and  press  Alt-2  again  when  it  ends. 
The  starting  time  will  stay  with  your 
command  line  as  your  program  out- 
puts to  the  screen  and  the  screen 
scrolls  up.  You  can  also  press  Alt-2 
while  your  program  is  running  to 
place  a  time  stamp  at  the  end  of  any 
intermediate  output  line. 

Using  Time  Stamp 
Witii  BASIC 

In  a  few  cases,  you  may  have  to 
modify  your  command  procedure 
slightly  if  you  want  to  use  Alt-2  to 
place  a  time  mark  at  the  end  of  a 
command  line  before  you  execute  it. 

For  example,  if  you  use  Alt-2 
and  then  press  function  key  F2  to 
run  a  BASICA  program,  BASIC  will 
think  that  the  time  mark  is  intended 
to  be  a  line  number  and  will  report 
an  error. 

This  minor  problem  is  easily 
solved.  Don't  use  the  F2  key.  In- 
stead, type  RUN  followed  by  a  sin- 
gle apostrophe  to  denote  a 
comment,  then  press  Alt-2  to  place 
the  time  mark  on  the  command 
line.  Finally,  press  Enter  to  execute 
the  command. 

Deleting  Time  Stamp 

If  Time  Stamp  has  been  installed 
and  you  want  to  delete  it — to  free 
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the  memory  space — simply  run  it 

U 

240 

DATA 

EA,03,D1,B4,06,8A 

EH 

660 

DATA   75,29,BA,3B,02,B4 

again.  You'll  receive  the  message 

NA 

250 

DATA 

C6,D1,E0,D1,E0,D1 

UK 

670 

DATA   09,CD,21,B4,35,B0 

LA 

260 

DATA 

E0,ai,E2,FF,lF,SS 

GD 

680 

DATA   09,CD,21,aD,5F,02 

Resident  code  deleted 

DA 

270 

DATA 

26,19,02,SB,CA,D1 

AS 

690 

DATA    26,8B,  17,8D,5F,02 

If  you  need  Time  Stamp  back,  just 

III 
HO 

2B0 
290 

DATA 
DATA 

E1,D1,E1,03,D1,B4 
03,aA,C6,Dl,E0,Dl 

GO 
NG 

700 

710 

DATA    26,8E, 1F,B4,25,B0 
DATA    09, CD, 21, Ba, 00, 49 

run  it  again,  and  it  will  load  itself 

GH 

300 

DATA 

E0,D1,E0,D1,E0,81 

FL 

720 

DATA    CD,21,BS, 00,4C, CD 

into  memory  exactly  the  way  it  did 
the  first  time. 

on 

310 

DATA 

E2,FF,0F,88,26,1A 

KK 

730 

DATA    21,  BA,  IF,  02,  84,  09 

PL 

320 

DATA 

02,8B,CA,D1,EA,03 

BO 

740 

DATA    CD,21,aC,CB,B9,04 

PC 

330 

DATA 

D1,D1,EA,D1,EA,B0 

CO 

750 

DATA    04,8B,D3,D3,C2,8B 

HA 

340 

DATA 

C6, 30, BB, 36,10,02 

fD 

760 

DATA    DA,a0,E2,0F,80,CA 

Time  Stamp 

IE 

350 

DATA 

32,F6,D1,E2,8B,CA 

•ff 

770 

DATA    30, 80, FA, 3A, 72, 03 

For  instructions  on  entering  this  program, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
in  Programs"  elsewhere  in  this  issue. 

DO 
OH 
DO 

360 
370 
380 

DATA 
DATA 
DATA 

D1,E1,D1,E1,03,D1 
80,06,30,88,36, ID 
02,B4,0F,CD, 10,50 

JO 
HF 
DP 

780 
790 
800 

DATA    80,02, 07, B4, 02, CD 
DATA    21,FE,CD,75,E4,8A 
DATA    53,  02, B4, 09, CD, 21 

HO 

390 

DATA 

B4, 03, CD, 10, 58, 52 

KK 

810 

DATA    BA, 1F,02,B1,04,D3 

m    10    'Copyright    17BB    COMPUTE!     P 

IJ 

400 

DATA 

8B,0E,14,02,B1,F9 

LG 

820 

DATA    EA, 42, 89, 16,57,02 

liblications,     Inc.    -    All    Ri 

LH 

410 

DATA 

00,79,74,02,66,00 

KF 

830 

DATA    BA,03,01,B4,25,B0 

ghts   Reserved 

IK 

420 

DATA 

BA,D4,B0,EA,08,B4 

HH 

840 

DATA    09,00,21,88,16,57 

m   20    'SHOWTIME. BAS      Used    once   t 

PD 

430 

DATA 

02, CD, 10, BE, 16, 02 

HP 

850 

DATA   02,88,00,31, CD, 21 

o   create    SH0WTIME.COM 

KI 

440 

DATA 

B9,01,00,aA,04,3C 

HJ 

B60 

WIDTH   B0:CLS:Pf?INT    TAB(a> 

OF  30   GOTO   860 

LG 

450 

DATA 

24,74,0F,56,B4,0A 

"Copyright    1988   COMPUTE! 

NO  40   DATA    E9,56,01,9C,9fi,00 

IP 

460 

DATA 

CD,10,FE,C2,B4,02 

Publications,     Inc.    -   All 

Lt   50    DATA    00,00,00,  IE, 50, 53 

GF 

470 

DATA 

CD,10,5E,46,EB,EB 

Rights  f!eBervecJ":PRINT:PR 

fH   b0    DATA    Ba,40,0a,BE,DB,BB 

OJ 

480 

DATA 

5A,B4,02,CD, 10, 5E 

INT 

PH  70   DATA    IC,  00,  BB,  07,48,48 

DC 

490 

DATA 

5F,5A,59,E9, 19, FF 

£1 

870 

CHKSUM=0 

BE  80   DATA   3B,  C3,  75,  03,  BB,  3C 

LE 

500 

DATA 

00,  00,  00,  00,  3A,  00 

HE 

880 

OPEN    "0",     #1,     "SHOWTIME. 0 

f-l  90   DATA    00,  SB,  D8,  88,  07,  3D 

EL 

510 

DATA 

00, 3A, 00, 00, 24, 52 

0M":F0R    IX    =    1    TO   492 

DI    100    DATA   00,78,74,09,30,00 

FB 

520 

DATA 

65,  73, 69, 64, 65, 6E 

LB 

890 

READ   A« 

U   110    DATA   79,74,04,3B,5B,1F 

DC 

530 

DATA 

74, 20, 63, 6F, 64, 65 

KC 

900 

J-/.    =   VAL("8iH"+A*) 

PI    120    DATA   CF,C7,07,00,S1,BC 

6P 

540 

DATA 

20, 69, 6E, 73, 74, 61 

BP 

910 

CHKSUM    =    CHKSUM    +    JX 

J6   130    DATA   CB,8E,DB,  A3,  14,02 

LN 

550 

DATA 

6C,6C,65,64,20,61 

« 

920 

PRINT    #1,     CHR«(JX); 

EP   140    DATA   FB,  51,  52,  57,  56,84 

ge: 

560 

DATA 

74,20,24,52,65,73 

Hfl 

930 

NEXT    17. 

ei    150    DATA    00,CD,lA,aB,Cl,Dl 

BB 

570 

DATA 

69, 64, 65, 6E, 74, 20 

P6 

940 

CLOSE 

BO    160    DATA    El,Dl,Ei,Dl,El,2B 

10 

5S0 

DATA 

63, 6F, 64, 65, 20, 64 

CP 

950 

IF    OHKSUM    =    52556!     THEN    P 

10   170   DATA   C8, 28,01,73,01,48 

EH 

590 

DATA 

63,60,65,74,65,64 

RINT    "SHOWTIME. COM   crnate 

KB    180   DATA   81 ,  04,  D3,  E0,  F6,  C4 

OJ 

600 

DATA 

0D,0A,24,30,0D,0A 

d"    :    END 

LC    190    DATA   01,74,03,05,60,00 

PL 

610 

DATA 

24,00,00,B4,35,B0 

HK 

960 

PRINT    "ERROR    :     Checksum    i 

JL   200   DATA   3C,A0,72,03,a5,60 

OH 

620 

DATA 

09, CD, 21, ac, 06, 07 

ncorrect    :    Review   all    dat 

HD   210    DATA    00,D2,E8,05,30,30 

KS 

630 

DATA 

01,89, IE, 05, 01, BF 

a    statements" 

80  220    DATA   88,  26,  16,  02,  A2,  17 

ce 

640 

DATA 

09,01,aB,F7,B9,  14 

UP 

970 

KILL    "SHOWTIME. COM"     :     END 

NO  230    DATA   02,  Dl ,  EA,  88,  Oft,  Dl 

EI 

650 

DATA 

02,2B,CE,FC,F3,A6 

@ 

Q-2-Q 


DECISION  TOOLS 


Qualitative  •  to  -  Quantitative 
Subjective  -  to  -  Objective 

If  you  have  the  QUESTIONS,  but  not  the  ANSWERS! 

Q-2-Q  converls  yoLjr  thougtit  process  into  tiard  data.  Q-2-Q  uses 
Three  Factor-Rating  Systems  which  provide  a  mechanism  to  combine 
diverse  factors  into  an  easy-to-understand  format. 

Create  an  unlimited  amount  of  your  own  topics  and/or  use  the  topics 
already  on  disk.  These  topics  were  created  by  professionals  In  their 
fields.  All  are  Owners.  Presidents,  C.E.O.'s,  M.B.A.'s,  Attorneys,  or 
Ph.D.'s. 

♦  PROPERTIES  {RESIDENTIAL   &  COMMERCIAL)    *    RESTAURANTS    * 

*  SPORTS  *  CAREERS  *   EMPLOYEES  *  AUTOMOBILES  *  STOCKS  * 

*  PERSONALITIES   *    VACATION  SPOTS    *    PET  BREEDS    *    MUSIC    * 

•  EDUCATION   (COLLEGE   S   DAY   CARE|    *    PLUS   SEVERAL   MORE    ♦ 

All  for  $49.95  (add  $2  S&H) 

Order  by  Check,  Visa,  MC,  AMEX,  or  C.O.D.  Jo: 

BANANA  SOFTWARE,  INC. 

ORDERS:  Dept.  QA  INQUIRIES: 

(216)673-6969  6531  Park  Avenue         (216)673-6434 

(24  hours)  Kent,  Ohio  44240  (recording) 


TWENTY     TIMES     THE     POWER!' 


CONFIDENCE     LEVEL     IS     HIGH 


Why  purchase  only  1  thoroughbred  handicapping  strategy  when  you  can 
have  the  POWER  of  the  20  most  popular  handicapping  strategies  available? 

A  proven  computer  program,  designed  by  an  M.B.A.  of  Finance,  combines 
improved  variations  of  the  20  most  popular  handicapping  strategies  into  one 
easy  program.  This  POWERFUL  program  called  Multi-Stfats  can  analyze  a 
race  using  20  strategies  in  a  fraclion  of  the  time  you  analy2e  a  race  using  jusl 
1  strategy. 

Simply  type  in  the  answers  to  the  program  questions.  All  the  info  is  in  the 
Daily  Racing  Form.  The  results  of  the  20  strategies  will  automalically  appear 
on  your  screen  or  printer.  Multi-Strats  then  tabulates  the  20  strategy  totals  to 
give  you  an  ultimate  number  lor  each  horse. 

The  Statistical  and  Actual  CONFIDENCE  LEVEL  is  HIGH  when  12  or  more 
strategies  select  Ihe  same  horse  to  Win! 

Multi-Strats  package  includes:  *  20  Strategies  *  50  Page  Book  (with 
money  management)  *  5Vj"  or  SVj"  disk  or  tape  *  Hotline  Phone  *  First 
Class  delivery  *  SONUS  #1  Video  Tutorial  (VMS  or  Beta)  *  BONUS  #2  Lot- 
tery Program  *  BONUS  #3  Pick  6-10  Horse  Program  *  BONUS  «A  Free  Las 
Vegas  Trip  eligibility  *  All  for  $89.95  (Add  S3  S  &  H)  with  a  10  day  money 
back  guarantee. 

Order  by  Check,  Visa.  MC.  AMEX.  Of  C.O.D.  to: 

Banana  Software,  Inc.  Depl.  SA.  6S31  Park  Avenue.  Kent,  OH  44240, 

ORDERS     (216)673-6969(24  hrs.) 
INQUIRIES  (216)  673-6167  (recording) 


MODELS:       IBM     COMMODORE     APPLE     ATARI 
RELEASED      SOON      FOR:       ST     AMIGA     MAC 


ALL     MODELS 

IBM         COMMODORE         APPLE 
RADIO  SHACK         ATARI 


COMPUTE!"  Publications 

Presents  the 

NAME  YOUR  DREAM 

SWEEPSTAKES!! 


Now's  the  chance  to  win  the  personal  computer  system  of  your  dreams!! 

A  $5,000  state-of-the-art  powerhouse  computer,  loaded  with  the  latest  peripherals  and  a  collection  of  software! 

Take  home  an  amazing  new  Amiga  2000  multitasking  computer, 

capable  of  producing  stunning  stereo  sound  and  superb  color  graphics 

as  well  as  running  all  IBM  PC  software! 

OR  vF- 

Choose  a  new  Apple  Macintosh  SE  computer, 

the  expanded,  faster  Mac  capable  of  reading  IBM  PC  software, 

and  a  leader  in  the  growing  desktop  publishing  world! 

OR   a^ 

Receive  a  powerful  Atari  1040ST  computer  system, 
complete  with  laser  printer,  a  terrific  combination  of  processing  power,  super  color  graphics, 

and  MIDI-equipped  sound  output! 

OR  ..^ 


Pick  up  a  new  IBM  Personal  System  50, 
the  80286-based  computer  system  with  twice  the  computing  speed  of  an  IBM  PC-AT 

and  new  VGA  graphics  power! 

Each  of  these  one-megabyte  dream  machines  comes  with  an  appropriate  mix  of  hard  disk  drive 

and/or  3-1/2-inch  and  5-1/4-inch  floppy  drives,  monitor,  printer,  a  modem  for  telecommunications, 

and  a  collection  of  popular  software  programs  to  get  you  started. 

.     OR 


Put  together  your  own  custom  dream  computer  system  with  $5,000.00  in  cash! 


Enter  today!! 


1 .  No  purchase  nece5sa7.  To  emer.  comptete  Ifte  olficial  entry  form  or.  on  a  plain  pece  of  paper,  hand  print  your  narne.  address,  crty.  state,  and  ztp  code.  Enter  as 
often  as  you  wisfi,  Ixrt  mail  eacli  entry  sepa/atety  to:  Name  Your  Dream  Svsraepstakes,  P.O.  Box  537,  Lowell,  IN  46399,  AJI  enines  must  be  received  by  July  1 ,  198B.  Not 
responsible  tor  late,  last  or  misdirected  mail. 

2.  Winner  will  be  detemiined  in  a  random  drawing  on  or  before  July  15,  198B,  by  Ventura  Associates,  Inc.,  an  independent  judging  organization  wnose  decisions  are  fi- 
nal, Tfie  prize  is  guaranteed  to  be  awarded.  Winner  will  be  notified  by  mati  and  may  be  required  to  complete  an  affidavit  of  eligibility  wtiich  must  be  returned  within  21 
days  of  date  on  rtotification.  No  substitutions  for  prize  except  as  may  be  necessary  due  to  availabiiity.  AJI  taxes  are  the  responsitslity  of  the  winner.  Entjy  constitutes 
penmission  to  use  of  winner's  name  arvJ  likeness  lor  publicrty  purposes  without  additional  compensation. 

3.  Afproximate  retail  value  of  the  prize  is  as  follows:  GrarxJ  {S5.0D0.00}. 

4.  Odds  of  winning  are  determined  by  the  total  number  of  entries  receiveO.  Sweepstakes  open  to  residents  of  ttie  United  States.  Employees  and  their  families  of  C;apftal 
CWes/ABC.  Inc.,  its  affiliates,  subsidianes.  distributors,  retailers,  advertising  and  production  agencies,  and  Ventura  Associates,  Inc.,  are  not  eligible.  All  federal,  state,  and 
focal  rules  and  regulations  apply,  Void  where  profiibited. 

5.  For  the  name  o(  the  maior  prize  winner,  send  a  stamped,  self-addressed  envelope  before  July  1,  1968  to:  Name  Your  Dream  Sweepstakes  Winiwrs,  P.O.  Box  773, 
Lowell,  IN  46399. 


Quick  Check 

Phone  Number  And  Address  Filer 
For  The  ProDOS  Ramdisk 


Beginning  Apple  users  can  put  their 
ramdisk  to  good  use  ivith  this  BASIC 
phone  number  and  address  filer.  By 
keeping  the  program  and  its  data  in 
RAM,  you  have  instant  access  to  the 
names  and  phone  numbers  of  friends 
and  associates.  There's  also  an  option 
for  displaying  emergency  numbers. 
The  program  runs  on  an  Apple  He 
with  128K  of  memory,  lie,  ajid  IIGS. 
ProDOS  IS  required. 


"Quick  Check"  uses  ProDOS's  in- 
credibly fast  ramdisk  to  store  up  to 
250  names,  phone  numbers,  and  ad- 
dresses. In  addition.  Quick  Check 
holds  six  emergency  numbers  which 
can  be  brought  quickly  to  the  screen. 
All  entries  may  be  searched  and 
edited.  So  that  you  won't  lose  any 
information,  the  program  reminds 
you  to  save  your  data  to  a  floppy 
disk  whenever  an  entry  has  been 
changed. 

Getting  Started 

To  use  Quick  Check,  type  in  Pro- 
grams 1-3  using  the  "Automatic 
Proofreader"  found  elsewhere  in 
this  issue.  Program  1  creates  a  data 
file  and  an  exec  file  (explained  later). 
Program  2  transfers  your  phone/ 
address  file  from  floppy  disk  to 
RAM,  and  Program  3  is  the  Quick 
Check  program  itself. 

After  typing  them  in,  save  each 
program  on  the  same  disk — prefer- 
ably a  ProDOS  system  disk  (one 
you  can  boot  with).  Save  Program  1 
as    DATA, GEN,    Program    2   as 
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TRANS.SYDOl,  and  Program  3  as 
QUICK.CHECK. 

Load  and  run  Program  1,  This 
creates  two  files  on  your  disk: 
SYDOl,  and  INSTALL.QUICK.  (You 
only  need  to  run  this  program  once 
to  create  these  two  files.)  The  SYDOl 
file  is  Quick  Check's  data  file.  Initial- 
ly, SYDOl  starts  out  empty. 

INSTALL.QUICK  is  an  exec 
file.  To  use  Quick  Check,  you 
should  execute  this  file  using 
Applesoft's  EXEC  command  every 
time  you  boot  your  computer.  This 
transfers  the  Quick  Check  program 
and  its  data  file  from  floppy  disk  to 
RAM.  If  you  saved  Quick  Check's 
programs  on  a  ProDOS  system  disk, 
you  may  add  the  following  line  to 
the  end  of  your  STARTUP  file: 

lOOOO  PRINT  CHR$(4);"EXEC 
INSTALL.QUICK" 

Otherwise,  simply  enter  EXEC 
INSTALL.QUICK  directly  from 
the  keyboard,  after  booting  with 
ProDOS,  Be  sure  the  disk  that  con- 
tains Quick  Check's  files  is  in  the 
disk  drive. 

After  Quick  Check  has  been 
transferred  to  the  ramdisk,  it  can  be 
loaded  and  run  instantaneously.  As 
with  a  normal  disk,  however,  load- 
ing programs  from  the  ramdisk 
erases  anything  located  in  the 
BASIC  workspace.  So,  if  you  are 
working  on  a  BASIC  program  and 
wish  to  run  Quick  Check,  save  your 
current  program  to  disk  first. 

To  activate  Quick  Check,  enter 
the  following: 
-/RAM/PH 


With  amazing  speed.  Quick  Check 
is  loaded  and  run. 

Using  The  Program 

When  run.  Quick  Check  offers 
these  five  options: 

1,  DISPLAY  EMERGENCY  NUMBERS 

2,  LOOK  UP  INFORMATION 

3,  EDIT  AN  ENTRY 

4,  ADD  AN  ENTRY 

5,  END  PROGRAM 

To  make  a  selection,  highlight 
the  desired  option  by  using  the  up- 
arrow  and  down-arrow  keys,  or 
press  the  corresponding  number 
key.  Press  Return  to  make  your  se- 
lection final. 

Display  Emergency 
Numbers 

When  you  select  Display  Emergen- 
cy Numbers,  all  six  emergency 
numbers  are  displayed  on  the 
screen.  Press  any  key  other  than  C 
to  return  to  the  main  menu. 

If  you  wish  to  change  one  of 
the  entries,  press  C  while  the  emer- 
gency numbers  are  displayed  on 
the  screen.  One  by  one,  the  com- 
puter lists  each  name  and  number 
to  the  screen,  asking  if  you  wish  to 
make  a  change.  If  you  say  yes,  you 
can  choose  to  edit  either  the  name 
or  number  part  of  the  entry.  After 
editing  an  entry,  the  program  asks 
if  your  changes  are  correct.  If  you 
answer  no,  you  are  given  the 
chance  to  edit  the  entry's  name  or 
number  again.  Once  the  program 
has  brought  you  through  all  six 
emergency  numbers,  you  return  to 
the  main  menu. 
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Look  Up  Information 

Upon  selecting  this  option,  the  pro- 
gram asks  "What  am  I  to  look  for?" 
Just  type  in  the  name — not  the 
number — of  the  entry  you  wish  to 
view,  and  press  Return.  (This  op- 
tion does  not  search  emergency 
numbers,  but  rather,  the  250  num- 
bers you  enter  using  the  Add  An 
Entry  option  described  below.) 

If  you  have  entries  for  Jane  Doe 
and  John  Doe,  for  example,  you 
may  search  for  Doe  and  the  pro- 
gram will  display  both  entries.  If 
you  wish  to  view  all  the  entries  in 
the  directory,  simply  press  Return 
without  giving  a  name  to  search  for. 
After  you  have  searched  for  entries, 
you  can  return  to  the  main  menu  by 
pressing  Return. 

Edit  An  Entry 

As  with  the  previous  option,  the 
computer  asks  what  you're  looking 
for.  Type  in  the  name,  in  part  or  in 
full,  of  the  entry  that  you  are 
searching  for.  If  you're  not  sure 
which  entry  you  wish  to  edit,  enter 
a  U  and  Quick  Check  will  go 
through  each  entry  in  your  file.  En- 
tering an  A  aborts  this  option. 

For  each  entry  that  Quick  Check 
finds,  the  program  asks  if  you  wish 
to  change  anything.  Answer  by 
pressing  Y  if  you  do,  N  if  you  don't. 
For  each  entry,  you  can  change  the 
name,  number,  street  address,  city/ 
state,  and  zip  code.  When  editing 
address  entries,  don't  use  a  comma 
between  the  city  and  state. 

Add  An  Entry 

Here's  where  you  add  names  and 
numbers  to  the  program.  When  se- 
lected, you  are  asked  to  enter  the 
name,  number,  street  address,  city/ 
state,  and  zip  code  of  an  entry,  in 
that  order.  Remember  to  use  a 
space  rather  than  a  comma  between 
the  city  and  state  entries.  After  en- 
tering all  five  lines,  Quick  Check 
displays  your  entry,  asking  if  it  is 
correct.  If  it's  not,  press  N  and  re- 
enter the  information  for  that  entry. 
(You  must  reenter  the  entire  entry, 
not  just  the  incorrect  line.)  If  it's 
correct,  press  Y  and  you're  brought 
back  to  the  main  menu. 

End  Program 

To  exit  Quick  Check,  select  this  op- 
tion. If  any  changes  have  been 
made  to  your  file,  the  program  asks 


you  to  insert  your  Quick  Check  disk 
(the  one  with  all  the  Quick  Check 
files  on  it)  into  the  drive  and  press  C 
to  continue.  Your  updated  data  will 
be  saved  to  disk.  This  is  important 
because  any  information  stored  in 
the  ramdisk  is  destroyed  when  you 
turn  off  your  computer.  If  you  do 
not  want  to  save  your  data  just  yet, 
press  A  and  you'll  return  to  the 
main  menu. 

If  you  haven't  modified  any  of 
the  entries.  Quick  Check  simply 
clears  the  screen  and  ends.  Both  the 
program  and  its  data  file  are  still  on 
ramdisk  if  you  need  them  again. 

Fot  instructions  on  entering  tnese  programs, 
pleose  refer  to  "COMPUTEf's  Guide  to  Typing 
In  Programs"  elsewhere  in  this  issue. 

Program  1 :  Quick  Check — 
Data/Exec  File  Creator 


St    100 


3E    110 


31    120 

*F    130 

FE    140 

13  150 
78  1&0 
El    170 


34  180 


(IF  190 
2A  200 


REM  COPYRIGHT  1938  GOMPUT 
E!  PUBLICATIONS  -  ALL  RIG 
HTS  RESERVED 
HOME  :  PRINT  "   CGPYRIBHT 

19SB  COMPUTE!  PUBL. ,  INC 
."!  PRINT  TABt  11); "ALL  R 
ISHTS  RESERVED":  VTAB  12; 

PRINT  "  GREAT INS  EXE 
C  AND  DATA  FILES." 
D»  =  CHRt  (4):FF$  =  "/RAM 
/PH";FI»  =  "TRANS. SYD01"! 
FH*  =  "INSTALL. QUICK" 
PRINT  :  PRINT  D*;"GPEN  SY 
001":  PRINT  D»f "WRITE  SYD 
01" 

FOR  X  =  1  TO  6:  READ  A»: 
PRINT  A»!  PRINT  "**(tf«tt 
":  NEXT  :  PRINT  "0" 
PRINT  :  PRINT  D»; "CLOSE  S 
YD01" 

PRINT  :  PRINT  D*; "OPEN  "; 
FH»:  PRINT  D*; "WRITE" ;FH» 
PRINT  "HOME: PRINT  "j  CHR» 

(34) ; "TRANSFERRING  QUICK 

CHECK  TO  RAM  DISK.":  PRI 
NT  "LOAD  QUICK. CHECK":  PR 
INT  "SAVE  ";FF«!  PRINT  "L 
OAD  ";FI«:  PRINT  "RUN":  P 
RINT  "NEW":  PRINT  "HOME" 
PRINT  :  PRINT  D»; "CLOSE"; 
FH» 

PRINT  "DONE." 
DATA  POLICE, DOCTOR, AMBULA 
NCE.FIRE  DEPARTMENT, PD I SO 
N  CONTROL, EXTRA 


Program  2:  Quick  Clieck — 
Data  Fiie  Transfer 

8«  100  REM  COPYRIGHT  1988  COMPUT 

E!  PUBLICATIONS  -  ALL  RIG 

HTS  RESERVED 
7A  110  D»  =  CHR*  (4):  DIM  EM«(6, 

1),PH»(250,4) 
IS   120  PRINT  :  PRINT  D*; "OPEN  SY 

D01"!  PRINT  DS5"READ  SYD0 

1" 
B^    130  FOR  X  =  1  TO  6:  FOR  Y  =  0 
TO  Is  INPUT  EM*(X,Y):  NE 

XT  Y,X 
IS  140  INPUT  PH:  IF  PH  =  0  THEN 

160 


7C  150  FOR  X  =  1  TG  PH:  FOR  Y  = 

0  TO  4:  INPUT  PH*(X,Y):  N 

EXT  Y,X 
15  160  PRINT  :  PRINT  D*;  "CLOSE  S 

YD01" 
21  170  PRINT  D«; "CREATE  /RAM/SYD 

01,TTXT" 
AA  180  PRINT  D«;"OPEN  /RAM/SYD01 

e  190  PRINT  D«; "WRITE  /RAM/SYD0 

1" 
77  200  FOR  X  =  1  TO  6:  FOR  Y  =  0 

TO  1:  PRINT  EM$(X,Y> 
M  210  NEXT  Y,X:  PRINT  PH:  IF  PH 

=  0  THEN  230 
32  220  FOR  X  =  I  TO  PH:  FOR  Y  = 

0  TG  4:  PRINT  PH»(X,Y>:  N 

EXT  Y,X 
24  230  PRINT  :  PRINT  D$;  "CLOSE  / 

RAM/SYD01" 

Program  3:  Quick  Check — 
Main  Program 

75  6  REM  COPYRIGHT  19B8  COMPUTE! 
PUBLICATIONS,  INC.  ALL  RIS 
HTS  RESERVED. 
B<  7  HOME  :  TEXT  :  VTAB  10:  HTAB 
13:  PRINT  "COPYRIGHT  19B8" 
I  HTAB  7:  PRINT  "COMPUTE!  P 
UBLICATIQNS,  INC.":  HTAB  10 
:  PRINT  "ALL  RIGHTS  RESERVE 
D." 
54  B  FOR  I  -  1  TO  2S00:  NEXT 
3?  10  HOME  :  TEXT  :  POKE  34,4:D« 

=  CHR»  (4) :0M  =  0 
(I  20  DIM  Et1*(6,  n  ,PH*(230,4) 
OF  30  RESTORE  :  FOR  X  =  1  TO  5: 

READ  MI»(X) :  NEXT 
79  40  PRINT  •.  PRINT  DS;  "OPEN  /RA 
M/SYD01":  PRINT  D«; "READ  / 
RAM/SYD01"!  FOR  X  =  1  TO  6 
:  FOR  Y  =  0  TD  1:  INPUT  EM 
»(X,Y):  NEXT  Y, X 
29  30  INPUT  PH:  IF  PH  =  0  THEN  7 

0 
66  60  FOR  X  =  1  TO  PH:  FOR  Y  =  0 
TO  4:  INPUT  PH»(X,Y):  NEX 
T  Y,X 
BC  70  PRINT  :  PRINT  D«;  "CLOSE  /R 

AM/SYD01" 
96  80  HOME  :  VTAB  4:  HTAB  4:  PRI 
NT  "QUICK  CHECK  PHONE  «<  AD 
DRESS  FILE" 
DE  90  V  =  5:H  =  6 

74  100  FOR  X  =  1  TO  5:  BOSUB  100 
0!  NEXT  iX  =  1 

FA  110  INVERSE  :  GOSUB  1000 

9fl  120  VTAB  23:  HTAB  20:  GET  AN* 

:AN  =  A5C  (AN«):  IF  AN  = 

13  THEN  180 

CJ  130  eOSUB  1000 

E7  140  IF  X  >  1  AND  AN  =  11  OR  A 

N  =  8  AND  X  >  1  THEN  X  = 

X  -  1:  QGTG  110 

62  150  IF  X  <  5  AND  AN  =  21  OR  A 
N  =  10  AND  X  <  5  THEN  X  = 
X  +  1:  GOTO  110 
IE   160  AN  =  VAL  (AN»>:  IF  AN  <  1 

OR  AN  >  5  THEN  110 
B6  170  X  =  AN:  GOTO  110 
2F  180  ON  X  GOTO  200,300,400,500 

,600 
8F  200  POKE  34,0:  HOME  :  VTAB  4: 
HTAB  11:  INVERSE  !  PRINT 
"EMERGENCY  NUMBERS":  NOR 
MAL 
El  210  VTAB  7{  PRINT  :  FOR  X  =  1 
TO  6  STEP  2:  FOR  Y  =  0  T 
Q  1:K«  =  EM»(X,Y):  GOSUB 
1020:  HTAB  (11  -  H) :  PRIN 
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n  220 


£4  230 


4B  240 


54  245 
K  250 


41   260 


C3   270 


F3  280 


2F 

235 

93 

290 

D3 

Zf5 

3E 

300 

£1  310 


17  320 


?C   330 


4F  340 
«  345 
il  350 
6E  355 


?F  360 


4E   365 

21    370 
A3   400 


9E   410 


H  420 


T   EM*(X,  Y)  ; 

K*   =    EM*(X    +    1,Y):     GOBUB 

1020:    HTftB    (28   -    H) :    PRIN 

T   EM«(X    +    1,Y):    NEXT    Y:    P 

RINT  :  PRINT  :  NEXT  X 

VTAB  21:  HTftB  7:  PRINT  "P 

RESS  'C  TO  MAKE  CHANGES" 

:  VTAB  23:  HTA6  l!  PRINT 

"ANYTHING  ELSE  TO  RETURN 

TO  MAIN  MENU" 

VTAB  23:  HTAB  39:  GET  AN* 

:  IF  AN*  =  "C"  OR  AN*  =  " 

c"  THEN  250 

HOME  5  POKE  34,4:  GOTO  30 

HOME  :  VTAB  4:  HTAB  8:  PR 

INT  "CHANGE  EMERGENCY  NUM 

BERS":  POKE  34,4 

FOR  X  =  1  TD  6:  HOME  :  VT 

AB  10:  PRINT  :  FOR  Y  =  0 

TD  1:K*  =  EM«(X,Y):  GDSUB 

1020!  HTftB  (20  -  H):  PRI 
NT  EM«(X,Y):  PRINT  :  NEXT 

Y 
VTftB  16!  HTAB  3:  PRINT  "D 
0  YOU  WISH  TO  CHANGE  THIS 

ENTRY  ?" 
VTftB  19:  HTAB  20:  GET  AN* 
:  IF  AN*  =  "Y"  OR  AN*  =  " 
y"  THEN  700 

IF  AN*  <  >  "N"  AND  AN*  < 
>  "n"  THEN  280 
NEXT  :  POKE  34,0:  HOME  : 
POKE  34,4 
GOTO  80 

HOME  :  VTAB  5:  HTAB  10:  P 
RINT  "LOOK  UP  INFORMATION 
"I  IF  PH  =  0  THEN  1030 
VTAB  10:  HTAB  B:  PRINT  "W 
HAT  SHALL  I  LOOK  FOR  ?"!Q 
Q  =  0!  VTAB  12:  HTAB  10: 
INPUT  "";AN*:AN  =  LEN  (AN 
*)!LN  =  5:KK  =  0 
FOR  X  =  1  TO  PH:Y  =  0:  FQ 
R  Z  =  1  TO  LEN  (PH*(X,Y)) 
:  IF  AN*  =  MID*  (PH»(X,Y) 
,Z,AN)  THEN  QOSUB  360: Z  = 

LEN  (PH«(X,Y)) 
NEXT  Z:  IF  KK  =  1  THEN  VT 
AB  24:  HTAB  7:  PRINT  "PRE 
SS  ANY  KEY  TO  CONTINUE";: 

BET  BN*:  HOME  :KK  =  0 
NEXT  X 

IF  QQ  =  0  THEN  355 
GOTO  1040 

HOME  :  VTAB  12:  HTftB  7:  P 
RINT  "I  FIND  NO  MATCHING 
ENTRIES":  GOTO  1040 
PRINT  :  FOR  W  =  0  TO  4:K* 

=  PH*<X,W):  G08UB  1020: 
HTAB  (20  -  H) :  PRINT  PH* « 
X,W) !  NEXT  WsQD  =  QQ  +  1 
LN  =  LN  +  6:  IF  LN  >  22  T 
HEN  KK  =  IsLN  =  5 
RETURN 

HOME  :  VTAB  5:  HTAB  13:  P 
RINT  "EDIT  AN  ENTRY! "t  IF 

PH  =  0  THEN  1030 
VTAB  10:  HTAB  2:  PRINT  "P 
LEASE  ENTER  NAME  OF  ENTRY 

TO  EDIT":  VTAB  12:  HTAB 
10:  PRINT  "ENTER  ' W     IF  U 
NKNOWN":  VTAB  14:  HTAB  16 
:  PRINT  "'A'  TO  ABORT" 
VTAB  16:  HTAB  20: AN*  =  "" 
;AN*:AN  =  LEN  ( 


:  INPUT  ' 

ANS) 

IF  AN*  = 

IF  AN*  = 

THEN  B0 
41  42B  IF  AN*  = 

THEN  460 
LN  =  5:KK  -  0:  HOME 
Y  =  0:  FOR  X  =  1  TO  PH:  F 


IC  423 
CE  425 


F9  430 

67  435 


""  THEN  80 
"A"  OR  AN* 


"U"  OR  AN* 


ca 

440 

12 

445 

B9 

450 

CI 

455 

n 

460 

ce 

465 

fl?  470 

51  475 
7F  S00 


C3  510 


C3  515 


£7  520 


21   525 


n  530 


540 


83  545 
US  550 


El 

555 

il 

560 

39 

565 

55 

570 

57  580 

J5  sas 

SC  590 

8!  595 
?C  600 

JF  605 

m  610 


3D  615 
C(  620 

BB  625 


OR  Z  =  1  TO  LEN  (PH»(X,Y) 

) :  IF  KK  <  >  0  THEN  445 

IF  AN*  =  MID*  (PH*(X,Y),Z 

,AN>  THEN  GDSUB  840 

NEXT  Z,X:  IF  LN  =  5  THEN 

355 

GOTO  80 

HOME  :  VTAB  12:  HTAB  7:  P 

RINT  "THERE  ARE  NO  MORE  E 

NTRIES":  SOTO  1040 

X  =  0 

KK  =  0:X  s  X  +  1:  IF  X  > 

PH  THEN  455 

GQSUB  840s  IF  KK  =  0  THEN 

465 
GOTO  S0 

HOME  !  VTftB  5:  HTAB  14:  P 
RINT  "ADD  AN  ENTRY:":  IF 
PH  =  250  THEN  1050 
VTAB  10:  HTAB  7:  PRINT  "P 
LEASE  ENTER  NAME  TO  ADD  - 
":  HTAB  20!  INPUT  "";PH»( 
PH  +  1,0) 

PRINT  :  HTAB  10:  PRINT  "E 
NTER  PHONE  NUMBER  -":  HTA 
B  20:  INPUT  "";PH*(PH  +  1 
,1) 

PRINT  :  HTAB  9:  PRINT  "EN 
TER  STREET  ADDRESS  -"!  NT 
AB  20:  INPUT  ""iPH*(PH  + 
1,2) 

PRINT  s  HTAB  11:  PRINT  "E 
NTER  CITY  &  STATE  -";  HTA 
B  20:  INPUT  "";PH*(PH  +  1 
,3) 

PRINT  :  HTAB  13:  PRINT  "E 
NTER  ZIP  CODE  -"!  HTAB  20 
:  INPUT  "";PH»(PH  +  1,4) 
FOR  S  =  0  TO  4:  IF  PH* (PH 

+  1,S>  =  ""  THEN  PH*<PH 
+  1,S)  =  "«««" 
NEXT  S 

HOME  :  VTftB  6:  PRINT  :  FO 
R  S  =  0  TO  4:K«  =  PH*(PH 
+  1,S)S  BOSUB  1020:  HTAB 
(20  -  H) :  PRINT  PH«(PH  + 
1,S):  PRINT  :  NEXT  S:  PRI 
NT  !  PRINT  t     PRINT 
HTAB  11:  PRINT  "IS  THIS  C 
ORRECT  ?" 

VTAB  23:  HTAB  20:  GET  AN* 
:  IF  AN*  =  "N"  OR  AN*  =  " 
n"  THEN  5B0 
IF  AN*  <  >  "Y"  AND  AN*  < 

>  "y"  THEN  560 

HOME  !  VTftB  12:  HTAB  10: 
PRINT  "ENTRY  IS  NOW  ON  FI 
LE"sPH  =  PH  +  l;aM  =  OM  + 

1:  GOTO  1040 
HOME  :  VTAB  12:  HTAB  5:  P 
RINT  "WOULD  YOU  LIKE  TO  T 
RY  ftGAIN  ?" 

VTftB  14:  HTAB  20:  GET  AN* 
;  IF  AN*  =  "N"  OR  AN*  =  " 
n"  THEN  80 
IF  AN*  <  >  "Y"  AND  AN*  < 

>  "y"  THEN  585 
GOTO  500 

IF  OM  <  >  0  THEN  GQSUB  61 
0 

POKE  34,0:  HOME  :  TEXT  : 
END 

HOME: VTAB  8: HTAB  10: PRINT 
"I  MUST  SAVE  CHANGES" :VT 
AB  10: HTAB  3: PRINT  "PLEAS 
E  MAKE  SURE  YOUR  PHONE  # 
DISK" 

VTAB  12:  HTftB  13:  PRINT  " 
IS  IN  DRIVE  1" 
VTAB  14:  HTAB  9:  PRINT  "P 
RESS  'C  TO  CONTINUE":  VT 
AB  16:  HTAB  15:  PRINT  "'A 
*  TO  ABORT" 
VTAB  17:  HTAB  20:  BET  AN* 


:  IF  AN*  =  "A"  OR  AN*  =  " 
a"  THEN  POP  :  GOTO  80 
Bft  630  IF  AN*  <  >  "C"  AND  AN*  < 

>  "c"  THEN  625 
C£  640  BOSUB  1010 

64  645  FF*  =  "SYD01":  GDSUB  660 
51  650  FF*  =  "/RAM/SYD0I":  GOSUB 
660 
RETURN 

PRINT  :  PRINT  D*; "OPEN  " ; 
FF* 

PRINT  D*; "WRITE  ";FF* 
FDR  X  =  1  TO  6:  FOR  Y  =  0 
TO  1:  PRINT  EM«(X,Y):  NE 
XT  Y,X 

PRINT  PH:  IF  PH  =  0  THEN 
685 

1  TO  PH:  FOR  Y  = 
PRINT  PH«(X,Y) :  N 


34  6SS 
SI  660 

Fl)  665 
EE  670 


13  67S 
42  680 

45  685 

28  690 
2C  700 

Fl  710 

SB  720 
51  730 

Efl  740 

«8  750 

CS  760 

4E  770 

9B  780 
74  790 

E2  795 


FOR  X  = 

0  TO  4: 

EXT  Y,X 

PRINT  : 

;FF* 

RETURN 

HOME  :  VTAB  8: 

INT  "CHANGE:" 

FOR  Z  =  0  TO  1 

TAB  5:  PRINT  Z 

M*(X,Z):  NEXT 

VTAB  11 

R" 

VTAB  15 


PRINT  D*; "CLOSE 


HTAB  3:  PR 


PRINT 
f  1;". 


:  H 
";E 


HTAB  3:  PRINT 


HTAB  20: 


GET  AN* 
!ftN  =  VAL  (AN*) :  IF  AN  < 
1  OR  AN  >  2  THEN  730 
HOME  :Z  =  AN  -  1 : K*  =  EM* 
(X,Z) 

GQSUB  1020:  VTAB  10:  HTAB 
(20  -  H) :  PRINT  EM*(X,Z) 
VTAB  12:  HTAB  9:  PRINT  "P 
LEASE  INPUT  NEW  ENTRY" 
VTAB  14:  HTAB  18:  INPUT  " 
";EM*(X,Z) 

HOME  :  VTAB  8:  PRINT 
FOR  Z  =  0  TO  1:K*  =  EM* ( X 
,Z):  GOSUB  1020!  HTAB  (20 

-  H) !  PRINT  EM»(X,Z)!  NE 
XT 

VTAB  16:  HTAB  6:  PRINT  "I 
S  THIS  ENTRY  NOW  CORRECT 
7" 

3B  800  VTAB  IS:  HTAB  20:  GET  AN* 
DC  810  IF  AN*  =  "N"  OR  AN*  =  "n" 

THEN  700 
8F  820  IF  AN*  <  >  "Y"  AND  AN*  < 

>  "y"  THEN  B00 
19  830  OM  =  OM  +  1:  GOTO  290 
94  840  HOME  :  VTAB  6:  HTAB  2i  PR 

INT  "IS  THIS  THE  ENTRY  YO 

U  WISH  TO  EDIT  ?"s  PRINT 

!  PRINT  !  PRINT 
CB  850  FOR  Q  =  0  TD  4:K*  =  PHS(X 

,Q):  GOSUB  1020:  HTAB  (20 

-  H):  PRINT  PH*(X,Q):  NE 
XT  Q 

F7  860  VTftB  23:  HTAB  20:  GET  ft*: 
IF  A*  =  "N"  OR  A*  =  "n" 

THEN  370 
il   870  IF  A*  <  >  "Y"  AND  A*  <  > 

"y"  THEN  860 
7ft  880  LN  =  4:KW  =  0 
Fi  890  FOR  Q  =  0  TO  4:  HOME  :  K* 

=  PH*(X,B):  GOSUB  1020:  V 

TAB  12:  HTAB  (20  -  H) :  PR 

INT  PH*(X,a) 
82  895  IF  KW  =  99  THEN  940 
3»  900  VTAB  15:  HTAB  3:  PRINT  "D 

0  YOU  WISH  TO  CHANGE  THIS 
LINE  ?" 
72  910  VTAB  17s  HTAB  20:  GET  AS: 
IF  A*  =  "N"  OR  ft*  =  "n" 

THEN  940 
81  920  IF  ft*  <  >  "Y"  AND  A*  <  > 

"V"  THEN  910 
«1  930  GOTO  950 
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»9  940  NEXT 

Bi  942  an  =  DM  +  1 :  KK  =  KK  +  1: 

RETURN 
82  950  HTAB  9:  PRINT  "PLEASE  ENT 

ER  NEW  LINE"!  IF  Q  =  0  TH 

EN  HTAB  7:  PRINT  "ENTER  ' 

«'  TO  DELETE  ENTRY" 
2S  955  PRINT  :  HTAB  20:  INPUT  "" 

;NA»:  IF  NA»  =  "«"  AND  Q 

=  0  THEN  970 
SB  960  PH«(X,G)1  -  NA« 
m   965  GOTO  940 
32  970  FOR  S  =  X  TO  PH  -  1:  FOR 

S  =  0  TO  4:PH»tS,G)  =  PH» 

(S  +  I,B)  :  NEXT  B,S:PH  - 

PH  -  IsKW  =  99!  GOTO  940 
Bft  1000  VTAB  (V  +  X  «  2) :  HTAB  H 

:  PRINT  Xj".  "5riI»(X):  N 

ORMAL  :  RETURN 
i*    1010  HOME  :  VTAB  12!  HTAB  11 J 
PRINT  "ONE  MOMENT  PLEAS 

E":  RETURN 
23  1020  K  =  LEN  (K*):H  =  INT  (K 

/  2>E  RETURN 
CC  1030  VTAB  12:  HTAB  6:  PRINT  " 

THERE  ARE  NO  ENTRIES  ON 

FILE" 
5F  1040  VTAB  24:  HTAB  13:  PRINT 

"PRESS  ANY  KEY";:  BET  AN 

«:  SOTO  80 
C?  1050  VTAB  12:  HTAB  8:  PRINT  " 

I'M  SORRY,  FILE  IS  FULL" 

s  GOTO  1040 
Id   2000  DATA  "DISPLAY  EMERGENCY 

NUMBERS", "LOOK  UP  INFORM 

ATION       ", "EDIT  AN  EN 

TRY  ", "ADD  AN 

ENTRY  " , "EN 

D  PROGRAM 


Looking  for  Thermal 

Paper  or  Mailing 

Labels  for  yotir 

OkSmates? 
Call  Precision! 

Precision  Images  now  has  avail- 
able for  your  Okimate  printers. 
GENUINE  Okidata  thermal  trans- 
fer roll  paper  and  mailing  labels. 
We  also  carry  a  large  supply  of 
spare  parts  and  supplies  for  all 
Okidata  printers.  Precision  Im- 
ages is  "your  direct  connection 
to  genuine  Okidata  parts  and 
supplies." 
New  Mkrollne  193  Printer— S425 

for  Visa/MasterCard  orders  call: 
1-800-524-8338 


prectskon  unages 


Precision  Images,  Inc 

PO  Box  573.  Dept,  C 

Chester   ^ew  York  10918 


fr  jF/i-ATy  r.'^ATr  m'a-:xst^j 


^/^-Awr 


A   NE*  FORM   Of  WRITC  PROTECTION 

rj^jOr  sllll«  Into  tfie  dlak  at  ttl»  top  comof 
directly  obova  tho  write-pfotect  notcti  ond  rilpa 
down   to  covBf   the   notch    from   the  Insldo. 

F!P^J3T  «llda«  out  >jbI  os  eoany  to  allow  the 
disk  tofbe  written  to, 

jr/^JBT   Is  good  foe   the  life   ol  )Our  dleli. 

r/^JOT  lg  light  In  color  ollowing  It  to  be 
viewed  when  the  dtik  !■  Initolled  In  the  dr<n 
>nt  by  gloncing  ot  the  drive  door, 

r/^JOT  Mile  tor  t1,39  per  pkg  of  ton  (10). 
Plooae  Include  t.50  tor  shipping  and  handling. 
Sorry,  no  C.0,0,  or  credU  cord  orders, 

ORDER   TODAY! 

-   WRITE  PROTECT 


•  STORAGE 


NEAR  FUTURE  COMPUTER 
■3;^  P.O.    Box  1726 
■IB  Walla  Walla,   Wa  99362 
^y  1(509)   525-3268 


^^VSPEECH  THINC 

HARDWARE  ATTACHES  OUTSIDE  THE  COMPUTER 
For  all  PCs,  compatibles,  laptops 


S69.0S 


CLEAR,  CLEAN, 
DIGITIZED  SPEECH 
AND  MUSIC, 
UNLIMITED  TEXT- 
TO-SPEECH! 
kttBci\9s  outside  the 
computer. 


Speect)  Thing  is  o  (ull-leotured  8  bit  D,'A  sound  converter  that  atloches  in-line 
witti  the  porQilel  prinfer  port.  Does  not  interfere  with  normal  printer  operation. 
Demo  proorams  give  your  PC  many  usetui  applications.  Incorporate  the 
prerecorded  dioitijed  words  in  user  virilten  BASIC  programs.  Editor  allows  tor 
special  effects,  new  words,  and  music,  BONUS:  Unlimited  te«t-to-speech  with 
SmoothTalker  (tM)  trom  First  Byte,  Use  lot  proofreading  scripts,  eleotfonic  mail 
ano  message  distribution,  educational  software,  product  tutori- 
als.'demonstrations.  more, 

Ttie  Speech  Thing  is  the  most  advanced,  lowest  cost,  hardware  software 
speech  system  you  will  evef  need.  Comes  complete  with  audio  omplilier 
speaker  with  headphone  jack,  power  coble,  software,  ond  monuol,  Or^ly 
S49,95,  30-dQ¥  SQtisfQction  guorontee.  One  year  wationty.  (Add  54  shipping 
ond  handling  lot  USA,  56  Canada,  SiO  overseas),  Vtso,  MasterCard  phone 
orders  accepted.  Also  available:  Covox  Voice  Master  PC  plug-in  board  for 
recording  in  your  own  words  or  music.  Ptoys  out  of  the  Speech  Thing.  Only 
S69.95!  (With  both  you  have  a  complete  speech  and  music  development 
systefnl)  Ofhier  hardwot©/ software  speech  and  voice  recoonilion  systems 
available  for  Apple.  Commodore,  and  Atari  computers. 

Call  or  write  today  for  FREE  Product  Catalog 

CXIVOX  JNC    (503)342-1271 

675  Conger  St..  Eugene,  Oregon  97402 


SUPER  81  UTILITIES 


Super  B1  Utilities  is  a  complete  utilities  package  for  the 
Commodore  1581  Disk  Drive  and  C128  computer.  Copy  whole 
disks  or  individual  files  from  1541  or  1571  format  to  1531 
partitions.  Backup  1581  disks.  Contains  1581  Disk  Editor, 
Drive  Monitor,  RAM  Writer.  CPIM  Utilities  and  more  for  only 
S39.95. 


1541/1571  DRIVE  ALIGNMENT 


154in571  Drive  Alignment  reports  the  alignment  condition  of 
the  disk  drive  as  you  perform  adjustments.  Includes  features 
for  speed  adjustment  and  stop  adjustment.  Includes  program 
disk,  calibration  disk  and  instruction  manual.  Works  on  C64, 
C128.  SX64.  1541.  1571,  Only  $34.95. 

'  ...excellent,  etlicieni  program  Ihal  can  help  you  save  both 
money  and  downtime.'  CompuleTs  Gazette.  Dec  .  1987, 


THE  NUMBERS  SHOW 


Interactive,  animated  graphics  for  teaching  pre-school  & 
kindergarten  numeral  recognition  and  counting  of  events.  For 
the  Apple  Me  128K,  19.95, 


MONDAY  MORNING  MANAGER 


statistics-based  baseball  game.  Includes  64  all-time  great 
major  league  teams.  Realisitc  strategy.  Great  sound  & 
graphics!  Apple  II  systems  ■  S44.9S,  C-64  &  Atari  systems 
S39.95. 

Order  with  check,  money  order.  VISA,  r/lastercard,  COD,  Free 
stiipping  &  handling  on  US.  Canadian.  APO.  FPO  orders.  COD 
&  Foreign  orders  add  $4.00.  Order  from: 


Free  Spirit  Software,  fnc. 

905  W.  Hillgrove,  Suite  6 

LaGrange.  IL  60525 

(312)352-7323 


Mi 


[MaiiwCofd)! 
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The  Elementary 
Amiga 

Part  2 


The  Amiga  Workbench  is  fine  for  most 
applications.  It  gives  you  friendly  ac- 
cess to  most  programs  and  files  on  disk. 
But  it  doesn't  show  you  everything.  To 
probe  deeper,  and  to  exercise  greater 
control,  you  must  activate  the  Com- 
mand Line  Interface  (CLI).  In  this  in- 
stallment, we'll  learn  to  use  the  CLI. 


In  many  ways,  the  CLI  is  a  tradi- 
tional computer  interface:  You  type 
in  commands  and  receive  responses 
in  the  form  of  text  (sorry,  no  icons 
here).  To  use  the  CLI,  you  must  first 
switch  it  on. 

There  are  two  ways  to  activate 
the  CLI:  an  official  method,  and  a 
quick-and-easy  method.  You're 
likely  to  use  both  at  one  time  or 
another.  Before  using  any  of  these 
methods,  make  a  backup  of  your 
original  Workbench  disk  and  use 
the  copy  only.  This  way,  your  origi- 
nal disk  is  still  available  in  case  any 
problems  occur. 

First,  we'll  go  over  the  official 
method  of  activating  the  CLI.  Boot 
your  system  with  Workbench  and 
run  Preferences.  On  the  Prefer- 
ences display,  you'll  see  an  area 
marked  CLI  with  two  boxes  labeled 
OFF  and  ON.  Click  the  ON  box  and 
then  click  the  SAVE  box  at  the  low- 
er right  corner  of  the  display.  Close 
everything   on   the   Workbench. 


Jim  Butlerfield 


Now,  when  you  reopen  the  Work- 
bench disk,  a  new  icon  marked  CLI 
appears  in  the  System  drawer. 
Double  click  this  drawer  and  then 
on  the  CLI  icon.  A  CLI  window 
opens  up. 

Here's  the  unofficial  method: 
Start  the  computer  from  a  power- 
off  condition  or  reboot  by  holding 
down  the  CTRL,  Commodore,  and 
Amiga  keys  at  the  same  time.  (On 
the  Amiga  1000,  these  keys  are  des- 
ignated CTRL,  left-Amiga,  and 
right-Amiga.)  As  the  system  is 
reading  in  the  Workbench  disk, 
hold  down  the  CTRL  and  D  keys 
simultaneously.  Wait.  The  system 
stops  with  a  BREAK  message  on  the 
screen.  When  it  does,  release  the 
keys.  You're  now  in  CLI, 

Making  A  CLt  Disk 

The  next  step  is  to  modify  a  Work- 
bench disk  so  that  the  computer 
comes  up  in  CLI  every  time.  Here's 
how  to  do  it:  Boot  with  the  Work- 
bench disk  to  be  modified  and  enter 
the  CLI  using  one  of  the  methods 
described  above.  From  CLI,  type 
ED  S/STARTUP-SEQUENCE  and 
press  RETURN. 

After  a  little  disk  activity,  the 
screen  changes  to  a  new  text  dis- 
play containing  a  series  of  CLI  com- 
mands. Press  the  ESC  key — this 
causes  an  asterisk  to  appear  at  the 
bottom  of  the  screen — and  then 
type  B.  This  combination  of  key- 


presses moves  the  cursor  to  the  bot- 
tom of  the  text  file. 

At  this  point,  the  cursor  should 
be  on  a  line  which  reads  ENDCLI 
>NIL:  or  something  similar.  Press 
the  ESC  key — there's  the  asterisk 
again — and  then  type  D,  for  delete. 
The  last  line  vanishes.  If  you  prefer, 
you  could  just  type  a  semicolon  (;), 
inserting  that  character  before  the 
ENDCLI  command.  The  semicolon 
acts  like  BASIC'S  REM  statement, 
keeping  the  ENDCLI  command 
from  being  executed.  That's  effec- 
tively the  same  as  deleting  the  line. 

If  everything  has  gone  as  ex- 
pected, press  ESC  one  more  time 
and  then  press  the  X  key.  The  edit- 
ed file  is  written  to  disk,  replacing 
the  original  startup  file.  If  by  any 
chance  you  made  a  mistake — you 
pushed  the  wrong  key,  perhaps — 
press  ESC  and  then  Q,  for  quit.  The 
computer  asks  if  you  really  want  to 
quit.  Answer  by  pressing  Y,  and 
start  over  again  from  the  ED  S/ 
STARTUP-SEQUENCE  command. 

From  now  on,  this  disk  gives 
you  the  CLI  every  time  you  boot. 
To  exit  the  CLL  just  type  ENDCLI 
and  press  RETURN  (from  now  on, 
assume  that  all  CLI  commands  are 
followed  by  the  RETURN  key).  The 
CLI  window  disappears,  leaving 
you  with  the  Workbench  screen. 
Most  users  leave  the  CLI  active, 
however.  It's  easier  to  shrink  the 
CLI  window  using  the  sizing  gad- 
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get  in  the  lower  right-hand  comer, 
and  then  cUck  the  back  gadget  to 
put  it  behind  other  windows  on  the 
Workbench  screen.  This  way,  the 
CLI  sits  there,  waiting  for  you.  Any 
time  you  need  it,  simply  bring  it  to 
the  front  and  click  inside  of  it. 

How  It  Works 

The  above  procedure  may  seem 
puzzling  at  first,  but  it  makes  more 
sense  as  you  learn  more  about  your 
Amiga.  We'll  give  a  little  back- 
ground on  the  workings  of  the 
Amiga  as  its  starts  up,  and  then 
explain  the  modifications  that 
we've  made. 

When  the  computer  boots  with 
the  Workbench  disk,  it  begins  with 
a  CLI  window.  This  is  where  you 
see  the  copyright  notices  and  re- 
lease version  number.  During  start- 
up, the  CLI  doesn't  wait  for  you  to 
enter  commands  from  the  key- 
board. Instead,  it  takes  its  instruc- 
tions from  a  file  called  STARTUP- 
SEQUENCE. 

A  file  containing  CLI  com- 
mands, such  as  STARTUP- 
SEQUENCE,  has  many  names. 
Users  with  an  MS-DOS  back- 
ground may  use  the  term  batch  file. 
Another  name,  script  file,  comes 
from  the  idea  that  you  can  read  the 
file  (it's  stored  as  text)  and  that  the 
file  contains  a  list  of  instructions. 
More  accurately,  however,  I  like  to 
call  it  an  execute  file,  since  you  can 
activate  these  files  using  the  CLI 
command  EXECUTE. 

The  computer  doesn't  care 
what  you  call  it;  it  just  searches  the 
disk  for  a  file  called  STARTUP- 
SEQUENCE.  If  it  doesn't  find  it  on 
the  main  part  of  the  disk,  it  looks  in 
the  drawer  called  S,  for  Sequence. 
When  it  finds  the  file,  it  executes  the 
commands  it  finds  there.  Some  of 
these  instructions  put  information 
on  the  screen  (ECHO).  Some  of 
these  commands  adjust  the  way  you 
access  the  disk  (PATH).  An  impor- 
tant instruction,  LoadWB,  loads  in 
the  Workbench.  The  last  instruction 
found  in  the  standard  startup  file 
tells  the  CLI  to  self-destruct.  That's 
the  ENDCLI  command. 

Although  the  startup  sequence 
begins  automatically,  we  can  stop  it 
by  holding  down  the  CTRL  and  D 
keys.  When  pressed  simultaneous- 
ly, these  two  keys  tell  the  computer, 
"if   you're    executing    instructions 


from  a  file,  stop  doing  so."  This  is 
what  happens  when  you  use  the 
unofficial  method'  of  accessing  the 
CLI.  Because  the  CLI  aborts  the 
startup  sequence,  it  never  gets  to 
the  ENDCLI  instruction.  Chances 
are,  however,  that  the  CLI  never 
got  to  the  LoadWB  instruction 
either.  If  this  is  the  case,  the  Work- 
bench was  never  loaded  and  enter- 
ing the  ENDCLI  command  will  lock 
up  your  computer,  forcing  you  to 
reboot — no  CLI,  no  Workbench,  no 
computer. 

To  create  a  Workbench  disk 
that  boots  up  with  the  CLI  active, 
we  used  a  screen  editor  that  comes 
on  the  Workbench  disk  called  ED, 
There  are  other  editors  available — 
some  of  them  quite  marvelous — 
but  everyone  has  good  old  ED,  and 
it  does  the  job  just  fine.  By  entering 
the  command  ED  S/5TARTUP- 
SEQUENCE,  we  ask  the  program 
ED  to  start,  and  to  look  in  drawer  S 
for  a  file  called  STARTUP- 
SEQUENCE.  If  found,  the  file  is 
displayed  on  the  screen  where  we 
can  edit  it. 

When  ED  is  running,  the  ESC 
key  triggers  what  are  called  extend- 
ed commands.  All  extended  com- 
mands are  prompted  by  an  asterisk 
that  appears  on  the  bottom  line  of 
the  screen.  We  used  the  extended 
commands;  B,  for  go  to  bottom  line; 
D,  for  delete  the  current  line;  and  X, 
for  exit  the  editor  with  file  update. 
Extended  command  Q,  if  we 
needed  it,  caused  the  editor  to  quit 
without  changing  the  file. 

What  did  we  do  with  START- 
UP-SEQUENCE? We  just  eliminat- 
ed the  ENDCLI  command  at  the 
end  of  the  file.  All  the  other  com- 
mands in  the  startup  sequence  were 
left  untouched.  After  editing  the 
startup  sequence,  the  Amiga  boots 
as  usual,  except  that  the  CLI  re- 
mains on  the  screen.  We  could  use 
the  command  ENDCLI  and  close 
the  CLI  window,  but  it's  better  to 
just  move  it  out  of  the  way  when 
it's  not  in  use. 

First  CLI  Commands 

The  official  CLI  reference  is  The 
AmigaDOS  Manual,  published  by 
Bantam  Books.  Be  sure  you  get  the 
revised  edition — new  CLI  com- 
mands have  been  added  since  the 
book  was  first  published.  Here,  I'll 
show  a  few  commands  that  you  can 


experiment  with. 

If  you  have  an  Amiga  1000  or 
an  unexpanded  Amiga  500,  you 
have  to  set  the  date  and  time  every 
time  you  turn  on  your  computer. 
Normally,  we  set  the  time  using 
Preferences,  but  that  requires  a  lot 
of  mouse  clicking.  With  the  CLI's 
DATE  command,  it's  a  snap.  For 
example,  type  DATE  25-Dec-87 
11:20,  and  the  job  is  done  (assum- 
ing it's  December  25, 1987,  at  1 1  ;20 
a.m.).  Any  time  you  want  to  know 
what  the  current  date  and  time  are, 
just  enter  DATE  by  itself  and  the 
computer  responds  obligingly. 

Type  DIR  to  get  a  directory 
listing  of  the  current  drive  (drive  0). 
You  can  get  the  same  listing  by 
specifying  drive  0  with  the  com- 
mand DIR  DFO:.  If  you  have  a  sec- 
ond drive,  you  might  like  to  put  a 
disk  in  there  and  type  the  command 
DIR  DFl:  to  see  its  contents. 

If  you  have  a  printer,  try  mak- 
ing a  hard  copy  of  the  directory.  It's 
easy  by  using  a  feature  called  I/O 
redirection.  The  command  DIR 
>PRT:  DFO:  sends  the  DIR  com- 
mand's output  to  the  PRT:  device 
(your  printer).  You  could  just  as 
easily  send  the  directory  listing  to  a 
disk  file.  For  example,  the  phrase 
>DL1ST  following  a  DIR  sends  ev- 
erything to  a  file  called  DLIST.  Pic- 
torially,  the  greater-than  sign  (>) 
looks  like  an  arrow,  or  a  funnel. 
Think  of  redirection  as  a  command 
to  "pour"  output  to  the  given  desti- 
nation. Keep  in  mind  that  the  redi- 
rection phrase  must  come 
immediately  after  a  command. 

You  may  notice  that  your  disk 
has  many  drawers,  or  as  the  CLI 
calls  them,  directories.  If  you  want 
to  look  inside  a  directory  called 
Utilities,  you  give  the  command 
DIR  UTILITIES  (or  DIR  DFO:UTILI- 
TIES)  and  see  what's  in  there.  Or 
you  could  command  DIR  DFO:  OPT 
A  and  see  everything  on  the  disk. 
OPT  A,  by  the  way,  stands  for  OP- 
Tion  All. 

Icons  And  Info  Files 

In  a  disk  directory  listing,  you'll  see 
a  number  of  files  whose  names  end 
with  .info.  You  might  think  these 
files  contain  information  or  docu- 
mentation on  the  associated  pro- 
gram. Not  so.  These  files  hold 
Workbench  display  information: 
the  shape  of  the  file's  icon,  location 
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of  the  icon  in  tiie  disk's  file  win- 
dow, and  son\e  of  the  other  things 
seen  when  we  use  the  Info  option 
from  the  Workbench  menu. 

Most  files  have  info  files  asso- 
ciated with  them.  Thus,  if  you  have 
a  program  named  DONKEY,  you 
probably  have  a  DONKEY.INFO 
file  as  well.  This  allows  DONKEY 
to  appear  as  an  item  on  the  Work- 
bench. If  you  were  to  delete  DON- 
KEY.INFO, the  program  DONKEY 
would  no  longer  appear  in  the 
Workbench  display,  but  it  would 
still  exist  and  could  be  used  from 
CLI. 

Similarly,  if  we  had  a  file  called 
MONKEY  which  has  no  info  file,  we 
could  make  one  by  using  the  com- 
mand COPY  DONKEY.INFO  TO 
MONKEY.INFO.  The  file  MONKEY 
would  then  appear  on  the  Work- 
bench, but  with  one  surprising  re- 
sult: The  icons  for  both  DONKEY 
and  MONKEY  would  be  located  in 
exactly  the  same  place,  one  on  top  of 
the  other.  To  produce  a  sensible  dis- 
play, you  would  need  to  drag  one  of 
the  icons  to  a  new  area  and  "log  in" 
its  new  position  with  the  Work- 
bench's Snapshot  option. 

Don't  assume  that  the  CLI  and 
Workbench  are  interchangeable. 
Many  programs  designed  to  work 
from  the  CLI  do  not  work  from  the 
Workbench.  That's  usually  because 
the  CLI  provides  a  ready-made 
screen  area  for  input  and  output;  a 
program  running  from  the  CLI  may 
use  what's  already  there.  Work- 
bench, in  contrast,  has  no  ready- 
made  text  window,  and  a  program 
running  under  Workbench  must 
know  how  to  create  such  a  window 
if  needed. 

DIR  And  LIST 

We've  used  DIR  to  look  at  the  con- 
tents of  a  disk.  We  may  also  use 
LIST  to  obtain  a  directory.  Try  LIST 
DFO:  and  see  the  difference.  List  not 
only  displays  the  filenames,  but  the 
file  size,  protection  status,  date  of 
creation,  and  any  comment  associ- 
ated with  a  file. 

The  options  for  LIST  are  quite 
different  from  those  of  DIR.  You 
can't  use  OPT  A,  for  example.  All 
commands  may  use  redirection — 
that's  part  of  the  system's  work- 
ings, not  the  command  itself. 

If  you're  not  familiar  with  a 
command's  syntax,  type  the  com- 


mand name  followed  by  a  space 
and  a  question  mark.  You'll  be 
prompted  by  a  description  of  the 
command's  parameters  (from  now 
on  referred  to  as  a  template).  Thus, 
if  you  type  DIR  ?  you  see  the  tem- 
plate: DIR,OPT/K. 

We  read  this  as  follows:  The 
system  needs  the  name  of  a  DIRec- 
tory  path  (DFO:  will  do),  followed, 
possibly,  by  OPTions.  The  K  means 
that  if  you  use  options,  you  must 
precede  them  with  the  OPT  key- 
word. (If  the  K  were  not  there,  it 
would  mean  you  could  omit  the 
OPT  keyword,  and  just  supply  the 
optional  information.) 

If  we  type  LIST  ?  we  see  a 
much  longer  template.  Again,  DIR 
indicates  that  we  may  supply  the 
name  of  a  directory  path,  but  then 
we  see  a  long  list  of  available  op- 
tions. I'll  mention  only  a  few  here. 

P  =  PAT/K  is  for  filename 
pattern  matching.  P  =  PAT  means 
that  we  may  use  either  keyword  P 
or  PAT  to  activate  pattern  match- 
ing. The  /K  implies  that  if  we  use 
this  option,  we  must  enter  either  P 
or  PAT.  Space  doesn't  allow  an  in- 
depth  discussion  of  pattern  match- 
ing here,  but  here's  a  brief  example 
that  lists  all  files  whose  filename 
ends  with  .INFO:  LIST  P  #?.INFO. 

QUICK/S  is  an  option  that  al- 
lows you  to  get  a  short  or  "quick" 
directory.  (A  quick  LIST  displays 
the  names  of  the  files  and  directo- 
ries only.)  The  /S  indicates  that  the 
keyword  QUICK  is  a  switch.  By 
using  the  QUICK  option,  you 
switch  on  this  feature. 

For  a  third  example  of  a  com- 
mand template,  type  COPY  ?  and 
you'll  see  FROM,TO/A,ALL/S, 
QUIET/S. 

The  FROM  and  TO  parameters 
are  flagged  with  /A,  signifying  that 
we  must  supply  both  the  source  and 
destination  filenames — you  must 
copy  from  somewhere  to  some- 
where else.  Anytime  you're  not  sure 
about  a  command,  type  the  question 
mark  and  examine  the  template. 

Looking  Ahead 

There  are  a  large  number  of  com- 
mands available  in  CLI.  You  can  see 
a  list  of  these  by  tj'ping  DIR  C:,  or  if 
you  prefer,  LIST  C:.  You  don't  need 
them  all,  by  any  means.  We'll  take  a 
look  at  some  of  the  more  useful  ones 
in  the  next  few  months.  © 
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Dual  Boill 


IIGS  RGB  COLOR  PACKAGE 

[•Applt  IIOS   Keyboard  •  2  S-  Disk  Drivt  .  Apptt 
R6B  Color  Moniloi  .  10  DisktMis  .  Appli 
Software  .AC  Adaptors    •  All  Hook-up  Cabled 


MAC   S£ 
PACKAGE 


$2199 


tees 

In  MOK 
Disk   Drives  •  New  MAC 
Keyboird  •!   MB  RAM 
Expandable  1o  4  MB 
■  HtVf   Eiplnsron  Slot 
Accepts  Special  Boards 


BEr'JDS 


w/AppIt  20MB  Hard   Drive      )2S99 

Imiiewilter  II   Pimtcr..,$449.95 
Appit  Workt  Soflunre...  169.95 


cammodore 

IBM  PC/XT  PCIO  — 1 

COMPATIBLE 
PACKAGE 

■PClO-1   Computer 

■  512K   Eipindable 

lo  (4DK 
•  }tOK  Disk  Olive 

■  Enhanced 

Keyboard 

■  Serial  A 

Parallel  Pons 
'  12'    Monir  -r 
■All  Hooh-Hp  Cables  tt  Adaptors 

■  Packaie  ol  10  Diikelles 

$499 

Same  Package  w/  ^^CQ 
20MB  Hard  Drive    V  •  DW 

PClO-2  w;i2"  Mtnilot I5H 


AMIGA. 

500 


•  68000  Processor 

■  &12k  Ram  Expanilabli:  to  QMB 

•Graphics  Processor 

AMIGA     PERIPHERALS 
A-SOl   512K  EXPANSION 
A- 1010  3.5"   FLOPPY   DRIVE 
A-1020T  5J5'  DISK   DRIVE 
wilh    TRANSFORMER 
A    1080    RGB  COLOR  MONITOR 
A-1300  GENLOCK 
A-1060  SIDECAR 

THESE  AND  OTHER 

PERIPHERALS  IN  STOCK 

WE  WILL  BEAT 

ANY  PRICE 

AMIGA  2000 CALL 


LAPTOPS      HARD  DRIVES  > 


TOSHIBA  1000 

I  720K  floppy     512K  RAM 
<77   MHi.     Super  Twist 
I  LCD  Screen  djQOQ 

ZENTIH  til 
ZENITH  III 
SPARK   b)   Datavue 

eiOk  «/2  720k  drlyi! 
I  NEC   Mulllsiieed 
Toshiba  3100/311 


Ili39 
»29» 
tlOM 


SEAGATE 

20   MB  w/Coolioller 

$289 
$349 


MINISCRIBE 

40  MB  w/Contiolhrl 

S449 

iSACATE  4&Ue 
•  /C«li»arr  tfi  srOCK' 
New  iOW  PRICED 


*3: 


commadore 

COMPUTERS  & 
PERIPHERALS 


commodore 


COMPUTER 
PACKAGES 

^I(^  COMPLETE    PACKAGE 

<C-MC  Coitipirlfr  ,  1S41  Diik 
Drive  •  C^mptiitr  Printer  ^  \2' 
at  •  GE05  SaIivtiic   Prcjirirn 


$329 


LK^ 


COLOR  PACKAGE 


ttC    PEHSOIJAL   COMPUTER 
C-12»  PERSONAL  COMPUTER 
C-128     0     w/&uill-»o     Disk     Ol(»* 
MPS-IIOO  COMPUTER  PRINTER 
MPS  S03C   COMPUTER  PRINTER 
MPS-IOOO  COMPUTER  PRINTER 

MPS -1250  Compuler   Primer  

DPS-llOl  Daisy  Wheel  Primer.... 

15<IC  NEW  DISK   DRIVE 

1571   COMPUTER  DISK   ORIVE 
ISII   COMPUTER  DISK   ORIVE 
ItOi  to  Col.  RSB   COLOR  MON 
2102     COLOR     MONITOR 
1102  COLOR  COMPUTER   MON. 
1700   IJtK   EXPANSION  MODULE 
1750   5I2K   EXPANSION  MODUIE 

16T0  AUTOMODEM 

TTPAMSIOfJ   MODULE 


tlS9  95 
131995 
1119  95 
1209  95 
I1299S 
1159.95 
1239.95 
(15995 
I20S-95 
(209  95 
)lt9  95 
121(95 
tZ19  95  I 
IH9  95 
199  95 
1159  95 
•  129  95 
1995 


■C-«C  Compaiti  -  1541/C  Disk 
Drive  .  Color  Primer  '  Color 
Monitor  *GEOS  Sotiware  Proiram 

$478 

C-  128KCOMPLETE  PACKAGE 

■C-12S  Coni;iuiti  •  1S4|  Dish 
Dflvr  ■  12*  Moniloi  •  Computri 
PirnUi 


I 


$439 


ro   iuBSTiTUTE  1571  FOB   1^41        ADD  l» 

C^  128S£  DELUXE  PACKAGE 

I C-  L7t  CArnpulcr  -  )5f  1  Diik 
iDiive  •  1902  Color  M^nitur  -  ISIS 
I  tZ  Cal    Pftitlcr 


$679 


:l.    Bank    check,    Mastircaril,   Visa,    Am-El 
;t5ar|.   for  creilil   card    or4<ri,      Man-Ciltri, 


I^'fJ'-    ..''■^-    r.iiJanlj    add    applicable    .aki    laj.       Prkls    Jrid^lrTili'biJil,"' job,-,'cl"r'e»Vi;;r'i;V)i.ur'Mtkr''ft.r%>poBsiEie'''r<." 

NO   SURCHARGE   FOR  CREDIT   CARD   ORDERS         iKWxT  ;;/V.,iS!lr,f//''*i''',r. "'''".''"•  ,T''-  '"••/'r  "'"'"  "',''•  rieai ion  n'mb,.,  .,  „turn.  .ill  i..t  b,  ,<t,pr,j 

IRM  rc/Ar  an  i>,iilir«l   liademiib  of  Inlanialional  Busmen  Michini  Cor,.  All  orjiri  can  be  sbippid  Ail  Eipraii-call  (or  diu.h 


COMPUTE! 's  Guide 

To  Typing  In  Programs 


Computers  are  precise — type  the  pro- 
gram exactly  as  listed,  including  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  noted  below.  We 
have  provided  a  special  listing  conven- 
tion as  well  as  a  set  of  programs  to 
check  your  typing — "The  Automatic 
Proofreader." 

Programs  for  the  IBM  and  those  in 
ST  BASIC  for  Atari  ST  models  should 
be  typed  exactly  as  listed;  no  special 
characters  are  used.  Programs  for  Com- 
modore, Apple,  and  Atari  400/800/ 
XL/XE  computers  may  contain  some 
hard-to-read  special  characters,  so  we 
have  a  listing  system  that  indicates 
these  control  characters.  You  will  find 
these  characters  in  curly  braces;  do  not 
type  the  braces.  For  example,  {CLEAR} 
or  {CLR)  instructs  you  to  type  the  char- 
acter which  clears  the  screen  on  the 
Atari  or  Commodore  machines.  A  com- 
plete list  of  these  sjTnbols  is  shown  in 
the  tables  below.  For  Commodore,  Ap- 
ple, and  Atari,  a  single  symbol  by  itself 
within  curly  braces  is  a  control  key  or 
graphics  key.  If  you  see  {A},  hold  down 
the  CONTROL  key  and  press  A.  This 
will  produce  a  reverse  video  character 
on  the  Commodore  (in  quote  mode),  a 
graphics  character  on  the  Atari,  and  an 
invisible  control  character  on  the  Apple, 

For  Commodore  computers,  graph- 
ics characters  entered  with  the  Commo- 
dore logo  key  are  enclosed  in  a  special 
bracket:  [<A>].  In  this  case,  you  would 
hold  down  the  Commodore  logo  key  as 
you  type  A.  Our  Commodore  listings 
are  in  uppercase,  so  shifted  symbols  are 
underlined.  A  graphics  heart  symbol 
(SHIFT-S)  would  be  listed  as  S.  One 
exception  is  {SHIFT-SPACE}.  When 
you  see  this,  hold  down  SHIFT  and 
press  the  space  bar.  If  a  number  pre- 
cedes a  symbol,  repeat  the  character  the 
indicated  number  of  times.  For  example, 
{5  RIGHT},  {6  S},  and  [<8  Q>], 
mean,  respectively,  that  you  should  en- 
ter five  cursor  rights,  six  shifted  S's,  and 
eight  Commodore-Q's.  On  the  Atari, 
inverse  characters  (white  on  black) 
should  be  entered  with  the  inverse  vid- 


Atari  400/800/XL/XE 


When  yoii  see 

{CLEAR} 

(UP} 

(DOWN) 

tLEFT> 

{RIQHT} 

{BACK  S3 

{DELETE} 

{INSERT} 

{DEL  LINE} 

{INS  LINE} 

{TAB? 

{CLR  TAB> 

{SET  TAB} 

{BELL} 

{ESO 


Type 


ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 


SHIFT  < 
CTRL  - 
CTRL  = 
CTRL  + 
CTRL  * 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


See 

t 
■t. 
<- 
-»■ 

a 

a 
a 
k 
a 
a 


CI  ear  Screen 
Cursor  Up 
Cursor  Down 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  stop 
Ring  buzzer 
ESCape  key 


Commodore  PET/CBM/ VIC/64/1 28/16/+4 


When  Ybu 
Read: 

(CLR  J 

{HOME} 

iUPt 

{DOWN) 

{LEFTS 

{ RIGHT) 

{RVSJ 

{OFF) 

(BIK) 

(WHT) 

{red; 

{CYN) 
(FUR  5 

{CRN} 
(BLU) 
(YEL) 


Press: 

[shift  1  fcLR/HOMEJ 


See: 


r 


iaR/HOMEj     |9| 
i  SHIFT  i  I  I  CRSR  rj    n 

[I  CRSR 
^SHIFT    ' 


When  Ybu 
Read: 

gig 

§43 

gsg 

i63 

isg 

{  Fl  ) 

(   F2  ) 

(   F3  ) 

{   M  ) 

{   FS  S 

(  F6  ) 

I  F7  } 

{  Fe  ) 

4 


Press: 

[commodore 


COMMODORE 


0 


I  COMMODORE]  j 
[C0MM0D0RE|  j 

[commodore 


i  COMMODORE 


See: 

E3 


■COMMODORE 


It 

HO 


I  COMMODORE 


H 


■■ 


r, 


■11 


SHIFT 


!  SHIFT 


fl 
(3 


;  SHlFTj  [    IS      I 


SHIFT  1 

a 

* 

m 
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Software  DiscouNiERsr— ^^ 

OF    AMERICA  .  Free  shipping  on  orders  ^ 

For  Orders  Only -1-800-225-7638  over  $100  in  continental  USA 

PA  Orders -1-800-223-7784  •  No  Surcharge  for  VISA/MasterCard 

Customer  Service  412-361-5291  •  Your  card  is  not  charged  until  we  ship 


IBM  SOFTWARE 


ACCESS 

IDth  Frame  Bowling  .      $29 
World  Clasi 

Leader  Board  $!■) 

ACCOlADi 

Ace  of  Act! (24 

Hardball  $34 

MeaniaGoU  130 

Meari  18  Famous 

CourjeDlili  -1  »14 

Mean  18  Famoui  Course 

Dislis'3A4 J23 

Mini  Pull S24 

Pinball  Wizard S21 

Test  Drive S24 

ACTIVISION 

Might  1  Magic     S3> 

Postcatdt  .  .  .St9 

Stianghai    S19 

ARTWORJf 

Bridge  5.0     )19 

Strip  Poker  S25 

DataDist  •!  Female      S14 
Data  Diili  •]  Male  »14 

Data  Dill '3  Female       (14 
Lir>liwi>rd  LanKua)tes; 

French  119 

Spaniih       S19 

AVALON  HILL 

Super  Bowl  Sunday  W1 
S.e.S.  Champs  Disk  SU 
S.B.S. 'BSTeanvDisk.  ,  SU 
S.B.S. '86  Team  Disk  S14 
BRODIRBUND 
Ancient  Art  ol  War  $27 
Ancient  Art  ot 

War  ai  Sea  %1T 

BankSI.  Wtiirr  Plus        149 
Business  Week's 

Business  Advantage  $32 
Carmen  Sandiego 

USA      H9 

World       .  (2S 

Karateka 121 

Memory  Male.      .  144 

Print  Shop  .136 

P. S.  Companion  132 

P.S.  Graphics  Libraiy 

Holiday  Edition  121 

P.S.  Cfaphtcs 

Library  '1  or  »2  121  Fa. 
Search^  Destroy  19.88 
Super  BikeChallenge  114 
Toy  Shop  .  132 

Type!  130 

CENTHAL  POINT 

Copy  2        123 

PC  Option  Board 179 

PC  Tools       123 

DATA  EAST 

Commando  124 

Tag  Team  Wrestling      .114 
DAVIDSON 

Algehlailer  130 

Grammar  Gremlins         130 
Math  Blaster  130 

Math  Blaster  Plus  130 

Spell  II  130 

Word  Attack  110 

FLtCTBONIC  ARTS 
Sollyyare  Classic  Series: 
Adventure  Const.  Set  19.88 
Lords  of  Conquest       S9.S8 


Music  Const.  Set 
One-orvOne  . 
Pinball  Const  Set 
Seven  Cities  Cold 
Super  Boulder  Dash 
tLECTHONlC  ARTS 


19,88 
19,88 
19.88 
19.88 

19.88 

.  .123 


Arctic  For 

Bard's  Tale 13] 

Chessniaster2000  126 

Chuck  Vaegtr'iAFS        136 
Earl  Weaver  Baseball     126 

Empire 132 

Instant  Pages   132 

Marble  Madness 123 

Patlon  vs.  Rommel.  .  .    12& 

Scrabble     12b 

Starllighl 132 

World  Tour  Coli 132 

im 

Calilornia  Games  124 

Create  A  Calendar         .119 

Destroyer 124 

PilslDp2    19.88 

Sub  Bailie  Simulator    .124 

Summer  Games  2 124 

World  Games       124 

CAMESTAR 

Champ.  Baseball  124 

Champ.  Basketball         124 
CFLCh.  Football  124 

HITECH  EXPRESSIONS 

Award  Ware 19.88 

INFOCOM 

Beyond  Zork    .    , 

Bureaucracy 

Hitchhikers  Guide 

Hollywood  Hijinx 

Leather  Goddesses 


131 
124 
119 
124 
124 

Nord  &  Berl  Couldn't  Make 
Head  or  Tail  of  It  124 

Plundered  Hearts  124 

Stationfall    .  .  .124 

The  Lurkinjt  Horror     ..124 
Zork  1  124 

Zork  Trilogy  144 

INTRACORP 

Business  Card  Maker      139 
MICBOPRQSt 

Ft;  Strike  Eagle 121 

Gunship.  . .  .132 

Pirates 124 

Silent  Service 121 

MINDSCAPE 

Balance  of  Power    .        130 
Bop  A  Wrestle  $19 

Defender  ol  the  Crown  124 
Infiltrator  119 

Infiltrator  2  124 

Perfect  Score  SAT  144 

Super  Star  tee  Hockey   124 
MONOGRAM 


Dollars  &  Sense 

ORIGIN 
Ullima  lor  3 
Ultima  4 
PARAGON 
Master  Nin}a  . 
SHARE  DATA 
jenpardy 
Farnily  Feud 
Wheel  of  fortune 
SIERRA 
BlackCauldron     . 


$109 


124  Ea 

$39 


18.88 
IS  88 
18.98 


3-0  Helicopter 

Simulator  124 

King's  QuesI 

1,1.  or  3      .  130  Ea. 

Leisure  Suit  Larry  124 

Police  Quest  .  .    130 

SfiaceQuestl  orj  130  Ea. 
Thetder  123 

SIMON  ASHUSTER 
Chem  Lab  .        .  .124 

Real  Estate  Investment  & 

Managemeni  $65 

Typing  Tutor  4  $30 

SIR  TECH 

Deep  Space 124 

Wizardry  Series: 

Knight  of  Diamonds  132 

Legacy  ol  Llylgamyn  132 

Proving  Grounds         139 
Seven  Spirits  of  Ra  132 

SPECTRUM  HOLDBVTE 
Falcon  F-16  Simulator    $33 
SPINNAKER 

T.Shirl  Shop  132 

SPRINGBOARD 
Cerlificate  Maker  124 

CM   Library  -1  119 

Early  Games  121 

Newsroom  Pro  149 

P.S. Graphics  Expander  124 
SSI 

Phantasie  124 

Rings  of  Zillin  114 

RDad»ar3000  .124 

Shard  ol  Spring  114 

Wizard's  Crown  124 

TtLARIUM 

Amazon  19.88 

Dragonworld  19.88 

Fahrenheit  451  19.88 

Nine  Princes  19,88 

Perry  Mason  19.S8 

Rendezvous  19.88 

THREE  SUTY 

Dark  Castle  124 

File  Rescue  132 

THUNDER  MOtiNTAIN 
Top  Con  16  88 

TIME  WORKS 

■Data  Manager 139 

DOSRt  139 

Evelyn  Wood  Reader  139 
Partner     . .  .139 

^Swiflcak  wi&ideways  139 
Sylvia  Porter's 

Financial  Planner        1S9 
Sylvia  Porter's 

Investment  Manager  19S 
Publish  It!  16S 

■Word  Writer  139 

'All  3  in  1  Power  Pack    179 
UNISON  WORLD 
Fonts  &  Borders  123 

Newsmaiter  159 

printmasler  Plus  136 

Art  Gallery  lor  2      $l9Ea. 
Art  Gallery:  Fantasy        119 
WEEKLV  READER 
Stickybear  Math  123 

Sticky  bear  Numbers  123 
Stickybear  Reading  123 
Stickybear  Spellgrabber  123 
Stickybear  Typing  113 


ACCESS 

Famouse  Course  Disk 

'llorWCLB  114 

Triple  Pack:  BH1.  BFf2, 

Raid  Over  Moscow     114 
World  Class 

Leader  Board  ,  12S 

ACCOEADE 

Comics 119 

Graphics StudioCS  .  -    $39 

Hardball 119 

Hardball  G5   $2S 

Mean  18  Golf  G5  .  .  S2S 
Mean  IS  Famous 

CoursesGS  . .    Call 

ACTIVISION 

Aliens  128K    123 

DrawCS     IS7 

Ghostbuslers 19.88 

Hacker  2 124 

Hacker  2  OS 119 

Maniac  Mansion  13SK  123 
Might  &  Magic  130 

Music  Studio  GS  157 

Fainlworks  wfClip  Art 

Gallery  C5  .    1S7 

Portal  128K        117 

Postcards  GS 119 

Postcards   119 

Shanghai    121 

Shanghai  GS 129 

Tass  Times  GS 124 

Writer's  Choice  Elite  OS  $57 
ABTWOR): 

Bridge  S.O  119 

International  Hockey  .119 
Strip  Poker  119 

Data  Disk '1(Femalt|  114 
Data  Disk '1  (Male)  114 
BAUDVILLE 

Award  Maker  Plus 124 

Video  Vegas  .119 

BRODERBUND 

Bank  SI.  Writer  ^  12BK  147 

Carmen  San  Diego 

USA 

World 
Cfyoplifler 
Dazzle  Draw  128K 
Fantavision 
Fantavision  GS 
Karateka 
Loderunrser 
On  Balance  128K 
Print  Shop  Enhanced 
Print  Shop  Companion    123 
Print  Shop  G5  139 

P.S.  Graphics  library 

'1.2  or  3  114  Ea. 

P.S.  Graphics  Library 

Sampler  Edition  GS 
Science  Tool  Kit 
Toy  Shop 
Type! 

Wings  of  Fury  12BK 
CtNIHAL  POINT 


APPLE  II  SERIES 


117 
114 

1938 
134 
130 
139 
121 
121 
139 
$29 


123 
139 
132 

117 
113 


Copy  3 
DAVIDSON 

Algeblasler 
Gramuur  Gremlins 


119 


Math  Blaster  127 

MalhBlasler  Plus  128K  127 
Read 'N  Roll  12SK.      .127 

Spell  II $27 

Word  Attack         127 

ELECTRONIC  ARTS 
Archon  1  or  2  19.88  Ea. 

Arctic  f  OS  126 

Bard's  TaleGS  133 

Bard's  Tale  2  $32 

Chessmaster  2000  $29 

Deluie  Paint  lies  .US 
D.  Paint  Art 'IGS  .119 
D.  Paint  Art '2 GS  119 

Deluie  Print  2  GS  Call 

EarthOrbil  Station  123 

Instant  Music  GS  $32 

Legacy  of  Ancients  $2b 

Marble  Madness  128K  $23 
Movie  Maker  19.88 

Music  Const.  5el  19.88 

Music  Const.  Set  CS  132 
Oise-onOfie  .  .19.88 

Pegasus  123 

Pinball  Const  Set  19.88 

Scrabble  126 

Seven  Cities  of  Cold  19.98 
Skyloi  1933 

Star  Fleet  1  131 

Super  Boulder  Dash  19.88 
World  Tour  Golf  CS  126 
EPVX 

California  Games  12BK  124 
Champ.  Wrestling  128K- 124 
Create  A  Calendar  119 

Destroyer  128K  124 

Movie  Monster  128K       114 
P.S.  Graphics  Scrapbook; 
'1  Sports  114 

'lOlllheWall  114 

•3  School      114 

Street  Sports 

Baseball  128K 124 

Summer  Games  2  124 

Winter  Games  124 

FIRST  BVTE 

First  Shapes  CS768K  132 
Kid  Talk  GS  7b8K  132 

Math  Tall  GS7b8K  132 

Speller  Bee  GS  7b8K        112 
'These  programs  talk! 
CAMESTAR 

Champ.  Baseball  128K  114 
Ch.  Basketball  12SK  114 
Ch.  Basketball  GS  129 

Champ.  Football  12BK  114 
Top  Fuel  Elimirutnr  1 3BK 119 
HI-TECH  EXPRESSIONS 


Award  Ware 
INFOCOM 


19.88 


Beyond  Zork  12BK 

132 

Bureaucracy  12eK 

124 

Hitchhiker's  Guide 

119 

Hollywood  Hiiini 

124 

Leather  Goddesses 

124 

Nord  &  Bert  HSK 

124 

Plundered  Hearts 

124 

Slalionlall 

124 

The  lurking  Horror 

124 

Zork  Trilogy 

144 

MECA 

Andrew  Tobias:  Managing 

rour  Money  2.0  19S 

MICROPROSi 
F-1 5  Strike  Eagle  121 

Silent  Service  ...  121 
Silent  Service  GS  .  .  125 
MINDSCAPE 

Balance  of  PowerllBK  139 
Bop  a,  Wrestle       .  119 

Defender  of  the 

Crown  GS 
tndoor  Sports    ,  . 
tnfjitralor 
Inliltralor  2 
Perfect  Score  SAT 
MONOGRAM 


132 

124 
119 
123 
144 

169 


123 


.124 
Call 


Dollars  &  Sense  12eK 

ORIGIN 

Auloduel  133 

Moebius                       .  .136 

Ultima4     136 

Ultimas  139 
ROGER  WAGNER 

SollswitchCS  119 
SIERRA 

King's  QuesI  1  or  2    130  Ea. 

Leisure  Suit  Larry  GS  125 
Thesder  GS 
SIR  TECH 
Deep  Space 
Wizardry  Series 
SPRINGBOARD 

Certificate  Maker  124 

CM.  library  Vol.  1  119 

Newsroom  132 

N.R.  ClipArt'l  or -1  117 

N.R.Clip  Arl '2  123 

Publisher  179 

Publisher  laser  Driver  124 

Publisher  Style  Sheels  119 
Publisher  Works  of  Art  Call 
STUEWARE 

Desk  Works  CS  139 

Mulliscribe).0128K  144 

MultiscribeCS  165 

Top  DrawCS  159 
SSI 

Eternal  Dagger  124 

Gettysburg  135 
Phantasie  1.2  or  3     $34Ea. 

Realms  i>l  Darkness  114 

Rings  of  Zilfin  124 

RaadwarlOOO  124 

Roadwai  Europa  114 

Shard  of  Spring  124 

Wizard's  Crown  124 
SUB  LOGIC 


Flight  Simulator  1 

let 

WEEKLf  READER 


132 
126 


«3 


Stickybear  ABC's 
Stickybear  Math  1  or  2  121  Ea. 
Stickybear  Music  123 

Stickybear  Numbers  123 
Stickybear  Reading  11) 
Stickybear  Shapes  113 

Stickybear  Spellgrabber  123 
Stickybear  Typing  123 


Commodore  64  &  128  Owners:  Please  read  our 
full  page  ad  in  this  months  Compute's  Gazette! 


P.O.  BOX  111327-DEPT.  CP-BLAWNOX,  PA  15238 


'PEea»  ftead  Tht  Followinu  Oideeing  Terms  &  Conditions  Carelully  Before  Pl*cinR  Your  Oeder:  Orders  i*ith  caihieri  chtcli  or  rtione>  order  shipped  immediately  on  in  jlock  ilemt. 
Personal  t,  Compiny  checks  4)Idm  3  Mceks  clearance.  No  C.O.D.'i!  Shipping:  Continentil  U.S.A.  — Orders  under  SlOO  add  S3;  trtc  shipping  on  orders  over  5100-  AK.  HL  FPO, 
APO  — add  $5  on  all  orders  Canada  4  Puerto  Rico  — add  HO  on  all  orders.  Sori>,  no  other  Inlernatioital  orders  *ccep(ed*  PA  midenUadd(i%  sales  Ux  on  the  toUl  amount  of  order 
including  shipping  chatgei!  HEASONS  FOR  CALLING  CUSTOMER  SERVICE- 412- J61 -5291  H)  Stalus  ol  order  or  back  order  {3)  JJ  any  merchandise  purchated  within  60  da>i  liom  S.D. 
of  A.  is  defective,  please  call  foj  a  return  aulhotizalion  number.  Defective  meichandise  will  be  replaced  with  the  s^ime  merchandise  only.  Other  returns  subjecl  1o  a  15%  reslocking 
charge.  After  bOdayi  please  refer  to  the  manufactuiers  wjifranl>  included  with  the  m^erchandije  A  return  directly  Id  fh*  itianufaClurer.Cuslomer  service  will  not  accept  collect  caitt  o* 
calls  on  S,D.  OT  A.'iBOO'  order  lines!  Have  you  teen  our  on  line  catalog  of  1000  software  titles  lor  Commodore,  Atari,  Apple.  l8Mar>d  AmigjI  It'sonCompuseive's  Electronic  Mall- 
iust  (ype  CO  SDA  and  shopping  for  softwaie  v,iU  nevej  be  the  «rt\e  again!  HOURS:  Mon.-Fii.  9AM-S:J0  PM,  Sat.  10AM-4PM  Eastern  Time.  Because  Ihis  ad  had  lo  be  wrillen  2-3  moj. 
before  it  wa}  published,  prices  &  availability  are  subject  lo  change!  New  tilles  are  arriving  djiily^  Please  call  for  more  information!  Holiday  Hours:  Nov.  2-Dec.  17;  Mon.'Thurs 
9  AM-8  PM.  FH,  9  AM-5:30  PM.  Sat.  10  AM-4  PM  Easlern  Time. 


eo  key  (Atari  logo  key  on  400/800 
models). 

Whenever  more  than  two  spaces 
appear  in  a  row,  they  are  listed  in  a 
special  format.  For  example,  {6 
SPACES}  means  press  the  space  bar  six 
times.  Our  Commodore  listings  never 
leave  a  single  space  at  the  end  of  a  line, 
instead  moving  it  to  the  next  printed 
line  as  {SPACE}. 

Amiga  program  listings  and  Atari 
ST  program  listings  in  GFA  BASIC  con- 
tain only  one  special  character,  the  left 
arrow  (-)  symbol.  This  character  marks 
the  end  of  each  program  line.  Wherever 
you  see  a  ieft  arra\^^  press  RETURN  to 
enter  that  line  into  memory.  (For  the 
Amiga,  you  can  also  enter  the  line  sim- 
ply by  moving  the  cursor  off  the  line.) 
Don't  try  to  type  in  the  left  arrow  sym- 
bol; it's  there  only  as  a  marker  to  indi- 
cate where  each  program  line  ends. 

The  Automatic  Proofreader 

Type  in  the  appropriate  program  listed 
below,  then  save  it  for  future  use.  The 
Commodore  Proofreader  works  on  the 
Commodore  128,  64,  Plus/4,  16,  and 
VIC-20.  Don't  omit  any  lines,  even  if 
they  contain  unfamiliar  commands  or 
you  think  they  don't  apply  to  your  com- 
puter. When  you  run  the  program,  it 
installs  a  machine  language  program  in 
memory  and  erases  its  BASIC  portion 
automatically  (so  be  sure  to  save  sever- 
al copies  before  running  the  program 
for  the  first  time).  If  you're  using  a 
Commodore  128,  Plus/4  or  16,  do  nol 
use  any  GRAPHIC  commands  while 
the  Proofreader  is  active.  You  should 
disable  the  Commodore  Proofreader 
before  running  any  other  program.  To 
do  this,  either  turn  the  computer  off  and 
on  or  enter  SYS  64738  (for  the  64),  SYS 
65341  (128),  SYS  64802  (VIC-20),  or 
SYS  65526  (P!us/4  or  16).  To  reenable 
the  Proofreader,  reload  the  program 
and  run  it  as  usual.  Unlike  the  original 
VlC/64  Proofreader,  this  version  works 
the  same  with  disk  or  tape. 

The  IBM  Proofreader  is  a  BASIC 
program  that  simulates  the  IBM  BASIC 
line  editor,  letting  you  enter,  edit,  list, 
save,  and  load  programs  that  you  type. 
Type  RUN  to  activate.  Be  sure  to  leave 
Caps  Lock  on,  except  when  typing  low- 
ercase characters. 

On  the  Atari,  run  the  Proofreader 
to  activate  it  (the  Proofreader  remains 
active  in  memory  as  a  machine  lan- 
guage program);  you  must  then  enter 
NEW  to  erase  the  BASIC  loader.  Press- 
ing SYSTEM  RESET  deactivates  the 
Atari  Proofreader;  enter  PRINT  USR 
(1536)  to  reenable  it. 

The  Apple  Proofreader  erases  the 
BASIC  portion  of  itself  after  you  run  it, 
leaving  only  the  machine  language  por- 
tion in  memory.  It  works  with  either 


DOS  3.3  or  ProDOS.  Disable  the  Apple 
Proofreader  by  pressing  CTRL-RESET 
before  running  another  B.ASIC  program. 

Once  the  Proofreader  is  active,  try 
typing  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  hexadecimal  number 
(on  the  Apple)  or  a  pair  of  letters  (on  the 
Commodore,  Atari,  or  IBM)  appears. 
The  number  or  pair  of  letters  is  called  a 
checksum. 

Compare  the  value  displayed  on 
the  screen  by  the  Proofreader  with  the 
checksum  printed  in  the  program  list- 
ing in  the  magazine.  The  checksum  is 
given  to  the  left  of  each  line  number, 
just  type  in  the  program  a  line  at  a  time 
(without  the  printed  checksum),  press 
RETURN  or  Enter,  and  compare  the 
checksums.  If  they  match,  go  on  to  the 
next  line.  If  not,  check  your  typing; 
you've  made  a  mistake.  Because  of  the 
checksum  method  used,  do  not  type 
abbreviations,  such  as  ?  for  PRINT.  On 
the  Atari  and  Apple  Proofreaders, 
spaces  are  not  counted  as  part  of  the 
checksum,  so  be  sure  you  type  the  right 
number  of  spaces  between  quote 
marks.  The  Atari  Proofreader  does  not 
check  to  see  that  you've  typed  the  char- 
acters in  the  right  order,  so  if  characters 
are  transposed,  the  checksum  still 
matches  the  listing.  The  Commodore 
Proofreader  catches  transposition  er- 
rors and  ignores  spaces  unless  they're 
enclosed  in  quotation  marks.  The  IBM 
Proofreader  detects  errors  in  spacing 
and  transposition. 

IBM  Proofreader  CorDmands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC.  Commhnds 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  (except 
Ctrl-Break)  to  stop  the  listing.  If  you 
enter  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  hut  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram as  usual  (this  replaces  the  Proof- 
reader in  memory).  You  can  now  run 
the  program,  but  you  may  want  to  re- 
save  it  to  disk.  This  will  shorten  it  on 
disk  and  make  it  load  faster,  but  it  can 
no  longer  be  edited  with  the  Proofread- 
er. If  you  want  to  convert  an  existing 
BASIC  program  to  Proofreader  format, 
save  it  to  disk  with  SAVE  "filename", A. 


Program  1:  Atari  Proofreader 

Bif  Charles  Brannoti 


100 
110 


120 


130 
140 


BRAPHICS  0 

FOR  1=1536  TO  1700:RE 

AD  A:POKE  I,A;CK=CK+A 

:NEXT  I 

IF  CK<>19072  THEN  ?  " 

Error  in  DATA  Stateme 

nts.   Check  Typing.": 

END 

A  =  USR (  1536) 

?  :?  "Automatid  Proof 

reader  Now  Activated. 


1S0 
160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2S0 

2<?0 

300 

310 

320 


END 

DATA  104, 
,3,201  ,  69, 
DATA  200,: 
0B, 243, 96 
DATA  153, 
,6, 153,26 
DATA  0, ta 
74, 6, 232, 

DATA  20B, 
41  --  ■   - 

DA.  .. 
B,   10S 
DATA  6,17 
0 

3 


ATA  20B,: 
1 , 78, 6, U 
ATA  79,6, 
a,  10S,  1,1' 
DATA  6,17" 
B, 141 , 96, 
DATA  0,13 
, 238, 12S, 
DATA  244, 


DATA  2^^, 
-"  241,7 


124,241,71 
DATA  0,0, k 
246, B, 201 
DATA  155,: 
2,240,7, 7; 
DATA  203, ^ 
40, 96, 72, 
DATA  72, 1 
,  145, BB, 2! 
DATA  20B,: 
74, 74, 74,' 
DATA  161, 
, 165, 203, 
DATA  105, 
SB, 169, 0, 
DATA  170 
40,  96 


160, 
,240 
200, 
,200 
26,  3 
,3,1 
9,0, 
224, 
245, 
69,6 
.24, 
41,9 
3,5, 
6,  16 
3,  20 
241  , 
24  1  , 
6,20 
0,0, 


,26 


0, 185, 
7 

34,  2 
74 


192 


169,  /•» 
1,  169 


;,200, 

62 

22B, 157, 

16 

169, 93,  1 

173,4,22 
'3 

228, 105, 
.9 

3, 96, 247 

93,  6 

1 13, 241 , 


i  J,  J,  ^-T  i  , 

!5,  238 
0, 32,62, 


240, 

2,  24 

133 

152, 

60,0 

00,  1 

249, 

74,2 

160, 

41,  1 

161  , 

133, 

104, 


13,201 ,3 

,  101 

203, 104, 
72, i3B 
, 169, 12a 
92,  40 
165, 203, 
4,  105 
3,  145,88 
5,24 
200, 145, 
203, 104 
16B, 104, 


Program  2:  Commodore 
Proofreader 

By  Philip  Nelson 

10  VEC=PEEK(772)+256*PEEK(773) 

;LO=43:HI=44 
20  PRINT  "AUTOMATIC  PROOFREADE 

R  FOR  ";!lF  VEC=42364  THEN 

{SPACEjPRINT    "C-64" 
30    IF    VEC=50556    THEN    PRINT    "VI 

C-20" 
40    IF  VEC=3515e  THEN  GRAPHIC  C 

LR: PRINT  "PLUS/4  &  16" 
50  IF  VEC=17165  THEN  L0=45 !HI= 

46:GRAPHIC  CLR : PRINT " 128 " 
60    SA=(PEEK(L0)+256*PEEK(HI>)+ 

6:ADR=SA 
70  FOR  J=0  TO  166:READ  BYT:POK 

E  ADR,BYTiADR=ADR+J.iCHK=CHK 

+BYT:NEXT 
80  IP  CHKO20570  THEN  PRINT  "* 

ERROR*  CHECK  TYPING  IN  DATA 
STATEMENTS": END 
90  FOR  J=l  TO  5:READ  RF,LF,HF: 

RS=SA+RF:HB=INT(RS/256) :LB= 

RS-(256*HB) 
100    CHK=CHK+RF+LF+HP:POKE    SA+L 

F, LB: POKE    SA+HF, HB:NEXT 


104     COMPoFEl     January  1988 


ChPiSt maS  houpS  ^     ^"'^^ ^»\     ,  _^ LiiiJ..^  ChPiSt maS HoupS 

Mon-Fri  9am-9pm  CST  \,^OiVLQi£!^^TKDLLLVU  MonFri  9am-9pm  CST 

Satiram-Spm  V-W##fc^i*fc^  fc******^  Sat11am-5pm 

THE  HOME  COMPUTER  STORE  THAT'S  AS  CLOSE  AS  YOUR  TELEPHONE 


NX-1000  PRINTER 

•144  CPS-Draft  .30CPS-NLQ 

•NLQIn10&  12  Pilch 

•6  Built-in  Fonts 


ONLY 


Panasonic, 


Oflia-  Aiilornj|.oii.j?^  -i^j. 


Y)}}}}}})A}}}}}>)}}}}}}}}}}}}}}}}}> 


1080i  -  II  PRINTER 

(^^ Now  at  144  CPS 

ONLY 

$159 


Panasonic. 

Office  kulomation^^sJn 

1091i- II  PRINTER 

^^  Now  at  192  CPS 

ONLY 

$179 


Panasonic. 

Office  Automalion/f'^^^l 

10921  PRINTER 

ONLY 

$299' 


PC  COMPATIBLE 


VENDEX  PC 

S12K,BMHZ,2DD,  7SI01 
Serial,  Parallel^  Mouse  & 

Game  Ports 

$1CKIOo(  Software  ind. 

MS  DOS  &  BASIC 

Mono  $829.00 

Color  $999.00 


BLUE  CHIP  PC 

BLUE  CHIP  AT 

BLUE  CHIP  POPULAR 

StSK  Monitor  &  3.2  DOS 

One  or  Two  Disk  Driv« 

Limited  Offer  While 

Supplies  Last 


We  Csrry  the  Complete  PACKARD-BELL  PC  UNE 

CALL  for  your  Configuration 


VJ'fffMjrj'JKrjrMWM'JlffMmMMWfffMJ'Mgt 


:  commodore 


1H1C  DisJiDfivo      SiCCcmpula  leOKWcnia 

1571  Oisli  Ciive        C-I2ac<mput«         SOOSMcrila 
15aiC0i^Dfive      C12BOCompuI« 
CALL  FOR  INDIVIDUAL  i  SUPER  PACKAGE  PRICES 


t7»RAME)ipanda    Ayaleicl^CC HC  Mod»ni     1351  iviouse 
aUMUixpa\6a    Avami  2400  HC  Matsni     ICONTiciler 

CALL  FOR  CURRENT  PRICE 


AMIGA  500 

COMPUTER  SYSTEM 
CALL  FOR  CURRENT  PRICES  &  AVAILABILITY 

— :jums — 

520  ST  &  1040  ST 

SYSTEM  PACKAGES 
CALL  FOR  LATEST  PRICES 


S^fS^^TT^^ 

m  ! 

Mioant  An  of  Wv  K  an  . 

.»K        fi 

UarnKMofWar 

,.»»        fi 

..».K 

*trtin 

..  iat&      A 

H.11.B5        E 

fianlainna . 

..^*.K        E 

iEHmiTiw     _.      ^    ^..^ 

..aiB      e 

BnflO«ifl  ...„..„...„„ 

_.  It  K         C 

C«km«  Gwwt »» 

Copy  I  PC  _ W.» 

CMS  ?a  Ltog  hVD  ._.„ ._  3*3 

Ctv^  Vb«9w  FS.  .„.,...-„,-  M.I5 
DdceilJfAwpi^ninji  ..H_„^,M.M 

DvtvwetrflCfMn Si.BS 

Dnrirrv „ M.B5 

t>g  Dug  .....„„..._.._.._.  U.» 

DOS  FW ,__, ..„_,  »» 

EVI  WHV9F  .,_,.,._._„,  !|,K 

EfBp'*  ,„„....^.„.^, „...»« 

arm  Slam  O^J^ S.H 

Qunimp  .... „.  i^M 

hlardbai 7A.ii 

iiiiBniPagra  ........ SQ.H 

KftTxMA..... ..;i.i& 

Uapwrw ^_.„..  .....H.« 

UvowMadnni . Hu» 

M»ntB 31.» 

M«nPiTOl U.W 

Monopdy . il.VS 

liMSDOSCWBoM:  W.B5 

US  Pk  Hvi u.n 

bMe  Conmctpn  ..........  IH.fft 

0«  a'lOrw ICK 

Or* »*.fts 

PKlUii H.B 

p.c.  QuTOt  ...„„,, e.» 

Pii**l  Wli  ...„„„ ..„.  Zi.» 

Putt  iti  II. .._„.,... ..„..,„.„..»4.M 

PfdniSncpH-.— ...-....-.H^.^,  37.K 
PSI  &Tr»(*nfl  Co  h.^-^.....,.  2*.K 
Si>*i  Owt  8f  Go'a.,..^.-.^,  10-B5 

SarltfH  ,...„„-, S?-» 

5arl«TS-.— ......S« 

SuDFUiM  ,.-  ^-^ -  »« 

SuBBfliflflMm*) -,-. WW 

Supw  BfcjKWDwn  . 1B-» 

Tig  T*vn  dVwUng  ..„.h.,,.  ?&9S 

Tufbo  Bujc H.M 

U(kli:ViitB(M_ .„ 1B.H 

Uimi  I.!(r3r„ CALL 

l^t41<li  -^^- ..4?:BS 

IMwailn?«lI.S.Aii 

CmiTKnSpnttajjn  .....„„. ?9BS 
WfwtJnmVWKJii 

CvrnanSan^a  ......... HD5 

VJW  iBt^  GqiP  .»,— ..3?.H 

WO-KJ  CIm  L  B  ,^._— ..-.—»  OS 
t»l  EiiAatO^  .r._. __...,..,  JOB 


Aafu  Aninjsar  .... . U.to 

MgaOTH .^.... IMH 

Ai'to'nBH  htf  nrtk^r n  n 

A/»ir»  1.0  .......^ un 

Am^  HI  E<|>«ni«n  _.„_  1 5d  56 
»,Bi 

Bam  TUi  ^....^..^„,.„....^..a3  B5 

iaO  CajJdrvn H  BS 

C^mponWi^  aaHtirii .7&H 

Cl«.-npont:ViCtf1 KU 

C^umHarJOOD  .^.. »  H 

DaimvartiaCnirn  ..,._^,»(9 
0<1<  Vu  „„,,.. .,.,.....„.H..„..  »,K 

Doiujta  ULiic  7Jr *4.H 

OaiuiaPam^  ................... MH 

Deduia  PMnt  ?  ........^_.....,...,  51» 

DalLoca  PrDel,«Bai^  ..^^^^  l?*.B6 
fMLoca  Vnw  1.2  ^_„__„__^M  (5 

Muia  Wft»  „, „„  Q  K 

Eari  WteMrOaHbril a2.» 

Efpn  ... ....„ 31H 

FaryTMJUwnui 31H 

F«>rv  FarrriiJi  1 ... 33.05 

Firitawpai .„.. 33H 

FihgmSlrrLijrIttll  .. ........  33» 

GFL  f  ooti*l »,» 

GokHpM . iJ.Vt 

CrfH-on «.» 

Q^n  B«:  Atf  Rait »■» 

rndnor  Sport! 3Z.BS 

InWlTjpa 316S 

KvnpQnipD* an 

Kw  T*n ass 

Klngi  OmM  t  J  «i  3  __.._.. 53. BJ 
Kj*/iiO:  .„_..^„,_H-..-H.ri,Bi 

La«un  aifl  L«vif ._ nn 

Lsfiti . OiH 

IhlvtM  Uwnii  _....^_.. 9.H 

Mwna  BftKsn  Inir^ ..„.  ?S.M 

U»nia  .... ..... ....37,BS 

IhLakcSbidD,. . ......33,BS 

On  Una  ............_.„...........  4J.BS 

Pa^Srtv aa.D5 

Pawn  .._„... .._ .a.U 

PrvnaM  1, 1  w  S ».» 

PmHtaamrPLii  ..„_. „...  Sl.fS 

Putjlftw  ........ .. 1li.lS 

RoaOWwEvw*   ._,_„^.^^,..»i4 

ScflOOa  .,.._ a.*b 

S.DJ.  . 37.« 

SftangfiH  ..„ ?*.» 

awnSairwoa 2iB 

79,» 

OSLfS 

TaatOrtM ir.B 

Ta-TirPiMI !*.05 

Thd  dt  In  BntMMfl ».K 

Ulma  IV 3i.»4 

WiQ  Vagal 7t.K 

Vlnwi^B  A/nifa... ttt.ti 

WffcrOarM  !i.85 

WcrtdOarvn  , Titi 


.  CML 
aueCd^pMT^H   ...........  3BH 

BafW«2sir« ?fl.H 

CartPak  i» _ 3>.« 

C»«rtPak12a  _...».» 

Cooa  1M ..-,.  .,,,...,„_,.«.« 

OBiviinvt?a -.,_^.  v.n 

FBnr»»Wt?B _„,XW 

Ohii»  --„ , ,._,..  At» 

OhCK  1 79 ,......™^  *At5 

4^  Pai  lie ,_„.„.  «.»5 

Oaq  fiia  1» .... .^..  «-*5 

MicMM..... .„...,...,.,...  a« 

Hrln  126  ,.„ ,  ,„.. ™  a  « 

MJBfM*"  i» n.« 

Paa«<flpll'1» CM.L 

Pvffw  1»  „_.-. ._ _-, U.H 

PMWFi*.; _.. „3tH 

PhW.  Rami'  ?  __  ,._„__  3i.» 

PkW.WiB'! „..»« 

So*«T*m1»., _.?iM 

SutWHH  tia  „, .,„_-.  57.W 

SbparC  Corrpt^ar a.tS 

Super Pafc!/l?a Sfl.H 

SuparPncai  l» _..aa.« 

&(HrKriplt» 4t.« 

Sw:rcact»  .. ...^..-U.U 

SyVKParw  1»  ..  ^.-........  42.05 

Tmxtf ?i»5 

WorArnikr  170 «.W 

Wil»n  ^AArtohoc «.« 


Arr»M  .._.„. n  J5 

AwTMv M.U 

Ajtt&AI .3>.H 

OH*  TM .^.^^...^,..,  n» 

e#ai  TM  t  .._-..„-..-„,_,.. »« 

Pw-NWmra ......^....,..  1B.K 

Canl9«M«Hr „._.JS.B5 

CirelCKVUnwLjtitl  ........  23.85 

aipArtlarS igj» 

Oifl  All  .. ?SJ5 

□atnva* ?5J6 
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33.B5 

„,«9Ai 

Of  ABwc 

CFACampW .., 

OaocK 

{In  Chart     .      

......  S4.« 

. I7.0S 

...,,..  B-t* 

DaeOai 

flawuUWi 

GotdRkFTw  ,-..  .    . 

.....34« 

QaM.. 

.  ».t5 

InmrwEaBW^Han^ 

»95 

...  3B.B5 

n.ts 

LriH^UBr€ilM 

37.95 

....44J5 

22:04 

lDWta»c 

2&95 

Wpm-oot . 

O^nHTfln  Corip»«J  .  . 

.     aoi 
—  »« 

MsbM  Ua»^*n 
ManlMlivrs ,... 

31  *i 

P^'Bftr...., 

»*s 

Pmm»»f  Pfcii 

ft.iS 

P^tfi  ..    „„.._„^...., 

30.95 

.^....B4J5 

40  J  5 

75  B5 

3(B5 

24J5 

PS.  t!*^pm«n 

.       2295 

P.C,&tB.«,.^,..«H^ 
PTWW4  l-ToO 

a.t}J . 

SutobrDB 

22.85 

?i.i5 

—    2S.95 

PrtwriA-jarB  ._  _,_ 

&t)BriIk   _. 

ST.  aw*  BatoP*  .     - 

ST  S(W9B»WMI. 

&**rP«2«4 

StjWrSwH»<«T 

SwltakefSathrFifl  

?ipi"?BM»01B^l  ......... 

.  „  24  05 

--    H04 
--,    !*05 
....     1B0) 

....  H.05 
12,  BS 

,  „,  ?iOS 
.......  ».05 

Pvanni^  pHnat ....... 

S*^.- ^ -.^ 

.......  0D.B5 

»B5 

3piKi*fBaa .. ... 

.31.95 

STMDrMBT 

«.BS 

SLrtJog  

awtafcST     —    .    - 

yijs 

<fiJ5 

Tina  Qtkfnm,  — .. — .. 

....^.  ».B5 

......  ia.B5 

k*ir^*S.. 
WarinSPaonc - 

3a.t& 

Tarmodl „ 

J*.«S 

TtvxW . 

HWClaiiLaaoar  - 

WartaTou'Qofl 

WWF  W«iTi5 

...,,».B6 
......  Z5.B5 

,.   .    21BS 
-.._?5» 

MmtJ^vllCl    .  

WfcxJiirifc'ST  

isa.gs 

*8fl5 

110    IF    CHKO22054    THEN    PRINT    " 

*ERROR*    RELOAD    PROGRAM    AND 

[SPACE 3 CHECK  FINAL  LINE": EN 

D 
120  POKE  SA+149,PEEK(772) :POKE 

SA+150,PEEK(773) 
130  IF  VEC=17165  THEN  POKE  SA+ 

14, 22: POKE  SA+18,23:POKESA+ 

29,224:POKESA+139,224 
140  PRINT  CHR$(147);CKR$(17):" 

PROOFREADER  ACTIVE ": SYS  SA 
150  POKE  HI, PEEK { HI )+l I  POKE  (P 

EEK(LO)+256*PEEK(HI))-1,0:N 

EW 
160  DATA  120,169,73,141,4,3,16 

9,3,141,5,3 
170  DATA  88,96,165,20,133,167, 

165,21,133,168,169 
180  DATA  0,141,0,255,162,31,18 

1,199,157,227,3 
190  DATA  202,16,243,169,19,32, 

210,255,169,18,32 
200  DATA  210,255,160,0,132,180 

,132,176,136,230,180 
210  DATA  200,185,0,2,240,46,20 

1,34,208,8,72 
220  DATA  165,176,73,255,133,17 

6,104,72,201,32,208 
230  DATA  7,165,176,208,3,104,2 

08,226,104,166,180 
240  DATA  24,165,167,121,0,2,13 

3,167,165,168,105 
250  DATA  0,133,168,202,208,239 

,240,202,165,167,69 
260  DATA  168,72,41,15,168,185, 

211,3,32,210,255 
270  DATA  104,74,74,74,74,168,1 

85,211,3,32,210 
280  DATA  2S5, 162, 31, 189, 227, 3, 

149,199,202,16,248 
290  DATA  169,146,32,210,255,76 

,86,137,65,66,67 
300  DATA  68,69,70,71,72,74,75, 

77,80,81,82,83,88 
310  DATA  13,2,7,167,31,32,151, 

116,117,151,128,129,167,136 

,137 

Program  3:  IBM  Proofreader 

By  Charles  Brannon 

10    'ftutomatic    Proofreader    Ver 

si  on    3.0    (Lines    205,206    ad 

ded/190   deleted/470,490  ch 

anged    from    V2.0) 

100  DIM  L«(500) ,LNUMt500) :COL 

OR  0,7, 7: KEY  DFF:CLS:MAX= 

0:LNUM(0) =65536! 
110  ON  ERROR  GOTO  120: KEY  15, 

CHR»(4)+CHR»<70) :0N  KEY ( 1 

5)  GOSUB  640IKEY  <15)  ON: 

GOTO  130 
120  RESUME  130 

130  DEF  SEG=S!H40:W=FEEKCSiH4fl) 
140  ON  ERROR  GOTO  650: PR  INT: P 

RINT"PrQDf reader  Ready." 
150  LINE  INPUT  L*:Y=CSRLIN-IN 

T(LEN(L*)/W)-1: LOCATE  Y, 1 
160  DEF  SEG=0:POKE  1050, 30: PO 

KE  1052, 34: POKE  1054, 0: PD 

KE  1055,79:POKE  10Si,13:P 

OKE  1037,28! LINE  INPUT  L* 

sDEF  SES:IF  L«-""  THEN  15 

0 
170  IF  LEFT*{L», 1)="  "  THEN  L 

♦=MID»CL*,2):60TO  170 
180  IF  VAL(LEFT«(L$,2) )=0  AND 
MID*(L*,3,1)="  "  THEN  L« 

=riID»(L»,4) 
200  IF  ASC(L*)>57  THEN  260  'n 

o  line  number,  there-fare 

command 


205 

206 
210 

220 


230 

240 
260 

270 


280 
290 

300 
310 

320 

330 

340 
350 
360 


370 
3B0 
390 
400 
410 


420 
430 
440 

450 
460 
470 


BL=INSTR(L», '■  "):IF  BL=0 
THEN  BL»=L*:BOTD  206  ELSE 

BL»=LEFT*  tL«, BL- 1 ) 
LNUM=VAL  CBL*) : TEXT*=MID» { 
L* , LEN ( STR* ( LNUM) ) + 1 ) 
IF  TEXT»=""  THEN  BDSUB  54 
0:IF  LNUri=LNUH(P)  THEN  BO 
SUB  560:BOTa  150  ELSE  150 
CKSUM=0;FOR  1=1  TO  LEN(L» 
) : CK5UM= ( CKSUM+flSC ( M I D«  <  L 
$,I)J*I)  AND  255: NEXT: LOG 
ATE  Y, is  PRINT  CHR« < 65+CKS 
UM/16)+CHR«<65+{CKSUf1  AND 

15>)+"  "+L* 
BDSUB  540: IF  LNUM<P)=LNUM 

THEN  L*(P)=TEXT«iSQTO  15 
0  'replace  line 
BOSUB  5B0:6OTO  150  "inser 
t  the  line 

TEXT*="":FOR  1=1  TO  LEN(L 
♦)!A»ASCCMID*(L«, I) ) :TEXT 
♦=TEXT»+CHR»(A+32«(A>96  A 
ND  A< 123) ); NEXT 
DELIMITER=INBTR(TEXT»,"  " 
) ; COMMAND»=TEXT»s  ARQ«=" " ! 
IF  DELIMITER  THEN  COMMAND 
•=LEFT« ( TEXT» , DEL I M I TER- 1 
) :flRQ»-MID«(TEXT», DELIMIT 
ER+i)  ELSE  DELIMITER-INST 
R(TEXT»,CHR*(34) ):IF  DELI 
MITER  THEN  COMMAND»=LEFT« 
( TEX  T» , DEL I M I TER- 1 ) : ARB«= 
M1D»(TEXT», DELIMITER) 
IF  COMMAND«<>"LIST"  THEN 
410 

OPEN  "scrn!"  FOR  OUTPUT  A 
S  «1 

IF  ARG*=""  THEN  FIRST=0:P 
=MAX-1:B0T0  340 
DELIMITER=INSTRCAR8*,  "-"> 
!lF  DELIMITER=0  THEN  LNUM 
=VAL  <  ARS* ) ! BOSUB  540 ; F IRS 
T-PsQOTO  340 

F I RST= VAL ( LEFT*  <  ARS* , DEL I 
MITER) ) ! LAST=VAL  <MID* (ARB 
*,DELIMITER+1)) 
LNUM=FIRST: BOSUB  540; FIRS 
T-P : LNUM-LAST : GOSUB  540 : I 
F  P=0  THEN  P-MAX-1 
FOR  X=FIRST  TO  PsN»=MID*( 
STR«(LNUM{X}),2)+"  " 
IF  C(CFLAS=0  THEN  A*="":6Q 
TO  370 

Ct<SUM=0:  A*=N*+L»  ( X ) :  FOR  I 
- 1  TO  LEN ( A* ) : CKSUM* ( CKSU 
M+ASC(MID«(A«,I) )tl)  AND 
255; NEXT: A*=CHR»  < 6S+CKSUM 
/16)+CHR*(65+(CKSUM  AND  1 
5))+"  " 

PRINT  #1,A*+N*+L»<X) 
IF  INKEY«<>""  THEN  X=P 
NEXT  ; CLOSE  #1:CKFLAG=0 
GOTO  130 

IF  COMMAND*- "LL 1ST"  THEN 
OPEN  "Iptli"  FOR  OUTPUT  A 
S  #1 1  GOTO  300 
IF  CQMMAND»=" CHECK"  THEN 
CKFLAB=1;S0T0  290 
IF  COMMAND»<>"SAVE"  THEN 
450 

GOSUB  600: OPEN  ARQ*  FOR  0 
UTPUT  AS  »l:ARB»="":B0T0 
300 

IF  C0MMANDt<>"L0AD"  THEN 
490 

GOSUB  600: OPEN  ARQ*  FOR  I 
NPUT  AS  •1:MAX='0:P=0 
WHILE  NOT  E0F<1):LINE  INP 
UT  *1,L»;BL=INSTR(L»,"  ") 
: BL*=LEFT» ( L« , BL- 1 ) : LNUM ( 
P)=VAL(BL«):L*<P)=MID»(L* 


,LEN(STR»<VAL(BL») > )+l):P 

=P+1:WEND 
480  MAX=P: CLOSE  #l:BaTa  130 
490  IF  COMMAND*="NEW"  THEN  IN 

PUT  "Erase  program  -  Are 

you  sure";L«:IF  LEFT*(L*, 

l)-"y"  OR  LEFT»(L«,1!="Y" 
THEN  MAX=0: LNUM (0) =65536 

!:BOTO  130; ELSE  130 
500  IF  COMMAND«="BASIC"  THEN 

COLOR  7, 0,0: ON  ERROR  BDTO 
0:CLS;END 
510  IF  COMMAND*<>"FILES"  THEN 

520 
515  IF  ARG«=""  THEN  ARS*="A: " 

ELSE  SEL"!: GOSUB  600 
517  FILES  ARS*:B0TO  130 
520  PRINT "Syntax  error"; SOTO 

130 
540  P=0; WHILE  LNUM>LNUM(P)  AN 

D  P<MAX:P=P+ls WEND: RETURN 
560  MAX=MAX-1:F0R  X=P  TO  MAX: 

LNUM(X)=LNUMCX+U :L*(X)=L 

*<X+1)! NEXT: RETURN 
580  MAX=MAX+1:F0R  X=MAX  TO  P+ 

1  STEP  -l!LNUM(X)=LNUMCX- 

1) ;L»(X)=L*(X-1)!NEXT:L*( 

P) =TEXT«: LNUM (P) =LNUM: RET 

URN 
600  IF  LEFT»(ARB«, 1)<>CHR»(34 

)  THEN  520  ELSE  ARS*=MID* 

<ARG*,2) 
610  IF  RIBHT«(ARG*, 1)=CHR»(34 

>  THEN  ARB«=LEFT«(ARG»,LE 

N(ARB*)-1) 
620  IF  SEL=0  AND  INSTR(ARQ«," 

. " ) =0  THEN  ARB*-ARB«+" . BA 

S" 
630  SEL=0; RETURN 
640  CLOSE  #1:CKFLAB=0:PRINT"S 

topped. ": RETURN  150 
650  PRINT  "Error  #";ERR:RESUM 

E  150 

Program  4:  Apple 
Proofreader 

Bij  Tim  Victor,  Editorial 
Programmer 

10  C  =  0:  FOR  I  =  768  TO  768 

+  68:  READ  A:C  =  C  +  A:  PO 

KE  I, A:  NEXT 
20  IF  C  <  >  7259  THEN  PRINT  " 

ERROR  IN  PROOFREADER  DATA 

STATEMENTS":  END 
30  IF  PEEK  (190  a  256)  <  >  76 
THEN  POKE  56,0:  POKE  57,3 

:  CALL  1002:  BQTO  50 
40  PRINT  CHR*  (4);  •'1N#AS300" 
50  POKE  34,0:  HOME  :  POKE  34, 

1:  VTAB  2:  PRINT  "PROOFREA 

DER  INSTALLED" 
60  NEW 
100  DATA  216,32,27,253,201,14 

1 
110  DATA  208,60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,125,255 
140  DATA  1,105,0,72,202,208 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  57,141,1,4,138,74 
180  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169,141,96 
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COMPUTEt's  AmtgaDOS  Reference  Guide  $16.95 

Arlan  R.  Levitan  and  Sheldon  Leemon 

ISBN  0-87456-047-5  231  pages 

This  clear  and  complete  reference  gulds  defines  and  illustrates  all 
AmigaDOS  commands,  including  version  1 .2.  Concise  explanations 
show  you  how  to  create  file  directories,  access  periphefols,  run  batch 
files,  and  many  othier  techniques.  COMPUTEI's  AmigaDOS  Reference 
Guide  also  thoroughly  explains  how  to  use  the  screen-  and  line- 
oriented  text  editors.  A  must-have  book  for  every  Amiga  user. 

COMPUTEI's  Amiga  Programmer's  Guide  Si 7.95 

Edited 

ISBN  0-a745W126-9  458  pages 

This  in-depth  guide  to  the  inner  workings  of  ihe  Amiga  covers 
AmigaDOS,  BASIC,  Intuition,  and  other  important  software  toois  wtiich 
accompany  the  Amiga.  It  includes  dozens  of  example  programs. 
AmigaDOS  command  summaries,  a  mandeibrot  program  written  in  C, 
and  details  on  accessing  odvanced  features  such  as  Amiga-specific 
graphics  arid  sound  chips.  For  both  beginning  and  advanced 
programmers. 

Learning  C: 

Programming  Grophtcs  on  the  Amiga  ar\d  Atori  ST         Si 8.95 
Christopher  D.  Metcaif  ond  Marc  B.  Sugiyama 

ISBN  0-87455-064-5  420  pages 

C  is  quickly  becoming  the  language  of  choice  for  many  professional 
programmers.  Vou'li  find  out  why  with  this  tutorial,  the  perfect  introduc- 
tion to  programming  in  C  on  the  Atari  ST  and  Commodore  Amiga. 
Using  numerous  program  examples,  the  ouJhors  explain,  in  plain  English, 
how  the  C  language  can  help  you  make  the  most  of  your  ST  or  Amiga. 
An  excellent  resource  for  beginning  and  intermediate  C  programmers. 
There  is  also  a  disk  available  which  includes  the  programs  in  the  book: 
Amiga  version.  645DSKI  $15.95:  Atari  ST  version.  64SDSK2.  $15.95. 


Learn  to  program — in  machine  lan- 
guage, BASIC,  and  C;  create  daz- 
zling graphics;  type  in  valuabie 
applications;  or  entertain  yourself 
and  friends  with  challenging 
games.  You  can  do  all  this,  and 
much  more,  with  the  easy-to-use 
tutorials  and  programs  in  COM- 
PUTEFs  new  books  for  the  Amiga. 


COMPUTEI's  Ffrst  Book  of  Amiga  Si 6.95 

Edited 

ISBN  0-87455-090-4  226  pages 

Continuing  with  its  commitment  to  the  full-featured  Amiga,  COMPUTEI 
Publications  has  collected  some  of  Its  best  games  and  applications, 
plus  some  never-before-published  programs,  to  show  off  the  enormous 
capabilities  of  this  multitasking  machine.  Included  ore  games,  program- 
ming tips,  ond  applications  such  as  "Hex  Wars,"  "Biker  Dove." 
"AmigaDOS  Batch  Files."  and  "AmigoTeim."  Each  program  hos  been 
fully  tested  ond  is  ready  to  type  in.  There  is  also  a  disk  available  for 
$15.96  which  includes  the  programs  from  the  book. 

Using  Deluxe  Paint  II  $^  e.95 

Steven  Anzovin 

ISBN  0-87455-1 11 -A  212  pages 

Create  the  most  spectacular  art  possible  on  a  personol  computer  with 
this  comprehensive,  yet  easy-to-use,  guide  to  Deluxe  Paint  II.  the  state- 
of-the-art  graphics  program  for  the  Commodore  Amiga  and  Apple  IIGS. 
From  basic  drawing  skills  to  customizing  brushes,  the  book  gives  you  de- 
tails that  will  help  you  get  the  best  results  possible  with  this  remarkable 
software.  Special  color  effects,  tools,  styles,  patterning,  and  perspec- 
tive ore  just  some  of  the  advanced  techniques  Illustrated.  Discover 
how  to  use  each  feature  of  Deluxe  Paint  II,  from  merging  foreground 
and  background  to  mixing  graphics  and  text.  A  COMPUTEI  Library 
Selection. 

Call  toll  free  1-S0O-346-6767  (In  NY  212-887-8525)  or  write 
COMPUTE!  Books,  P.O.  Box  5038,  F.O.R.  Station,  New  Yorit,  NY 
10150.  Customer  Service  tiours  are  10:00  a.m.  to  12:30  p.m. 
and  1 :3Q  p.m.  to  3:00  p.m.  EST,  Monday  tlirough  Friday. 

Please  Include  $2.00  stripping  and  tiandltng  for  U.S.  and  sur- 
face mall  or  $5.00  for  airmail.  NC  residents  add  5  percent 
sales  tax  and  NY  residents  add  8.25  percent  sales  lax. 
Please  allow  4-6  weeks  for  delivery. 


COMPUTE!'  Publicationsjnc® 

A  Capitol  Clltes/Aec.  Inc.  Company  ^^^ 

COMPUTEI  txMks  ara  available  outside  the  United  States  from  subskJlorles  o( 
McGrow-Hlll  International  Book  Company. 


Classified 


SOFTWARE 


COMMODORE;  TRY  BEFORE  YOU  BUY.  Best 
SL'llinj;  gamos.  utilities,  educational.  +  classics 
anJ  new  releases.  lOO's  of  titles.  Vi^a/MC.  i^ree 
brochure.  RENT-A-DISC.  Frederick  BIdg.  «345. 
Huiifii,  U'V  2.^701  (30-!)  529-3232 

DISCOUNT  SOFTVV.'VRE  for  most  computers. 
FREE  CALM-OC.  Sale:  5.2-^"  D5DD  Disks 
25  for  $13.95  ppd.  VVMJ  DATA  SY5TEM5-C. 
4  Butterfly  Dr„  Hauppauge,  NY  117aS 

FREE  SOFTWARE  for  C64,  CI2H.  IBM  &  CPM 
send  SASE  for  info  (specify  computer)  to: 
PUBLIC  DOMAIN  USERS' CROUP 
PO  Box  l-142-Ai.  Orange  Park,  FL  32067 

MILLION  S  "LOTTO  BUSTER"  PROGRAM 

SCIENTIFIC   HITS  JACKPOTS.  \0  KS/G  S4').95 
Ap  II,  Al.iri,  MS/DOS.  C64.  OH  res  add  h".! 
s.ljx.  Also:  FANTASTIC  DAILY  NUMBER 
FORECASTER!  Gets  Straight  Hits  VVeeklv!  S42.95. 
Balh:  S79.95.  i^rge  SASE  gets  info.  Z-Way,  POB 
9017-C,  Canton  OH  44711      (216)  875-2512 

More  than  201)  great  ML  rouline,s  for  64  and 
128.  readv  to  add  !o  vour  own  programs,  in 
COMPUTE!  Books-  MACHINE  LANGUAGE 
[ROUTINES  FOR  THE  COMMODORE  fi4/12B, 
Explanations,  uses,  commented  source  code,  385 
pages,  S18.95.  Check  your  local  bookstore  or  call 
(800)  3-!fi-ftr67 

FREE  PUBLIC  DOMAIN  SOmATARE 

ReL]\iest  free  catalog  or  send  S2  for  sample  disk 
&  talalog  (refundable).  Apple,  C64/I28  (specifv) 
CAI.OKE  IND..  Box  18477,  fCC,  MO  64133 

IBM  PUBLIC  DOMAIN  SOFTWARE  $3  PER  DISK 

Send  stamp  for  catalog  (on  disk).  Flundreds 
of  disks  to  choose  from.  Excellent  service. 
Two  disk  si/.es  now  available:  SVr  @  $3.00 
and  3'/:"  @  $5.00.  Send  for  your  list. 
Ntnv  at'ceptinj^  MasterCard  and  Visa. 
JDX/C,  P.O.  BOX  1S61,  CORONA,  CA  9171B 

C64  FINEST  PUBLIC  DOMAIN  PROGRAMS 
Pretested  quality  programs  '.Most  51. 50*  'On 
Disk*  VOL  pick  the  programs  that  YOU  want!!! 
Free  diskfull  of  programs  with  first  order! 
For  a  list  and  description,  send  a  SASE  to; 
II.H  Co.,  Dept.  H,  Box  67021,  Topeka.  KS  66667 

ATARI  800/.VL/XE  SOFTWARE  -  Neiv  Releases. 
Hits.  Classics     ALL  INTERESTS!  Send  SI 
(refundable)  for  28-page  SUPER  CATALOG  to 
25th  Century.  POB  80-J2,  Hicksville.  NY  1 1802 

(Jualitv  mw  BOITU'ARE  from  $2  per  disk. 
Games/  VVProc/DBases/Educ/Sprshl/Util/More. 
PD/Shareware  -  Latest  Versions!  Free  Catalog. 
SOHSOURCE.  Box  2737,  U"esl  Lafayette,  IN  47906 
(317)  497-3301  CALL  OR  WRITE  TODAY! 


IBM  CROSSWORD  POWER 
Up  to  80  words  in  each  puzzle.  Make 
single  puzzles  or  automatically  create 
and  print  up  to  15  different  puzzles 
from  each  list  of  words  and  clues.  Reuse 
words  &  clues  in  new  puz/.les  without 
retvping-  Great  for  games  or  vocabularv 
review.  Check/MO  $69.  Add  $2  S/H, ' 
WISCO  COMPUTING,  2821  Sampson  Street, 
Wisconsin  Rapids,  W[  54494 

IBM  GRADE  BOOK  POWER 

Enter  either  letter  or  nimTlx'r  grades. 
Prints  2S  different  types  of  reports 
for  students,  teachers,  parents  and 
administrators-  Most  comprehensive 
student  reports  of  anv  computer  grade 
book  program.  Check/MO  $59.  Add  $2  S/H. 
WISCO  COMPUTI.NG,  2821  Sampson  Street, 
Wisconsin  Rapids,  Wl  544<)4 

•FREE'  IBM  SOFTWARE  "FREE" 

5V,-  AND  3Va"  FORMATS 
FREE  CATALOG:  AP-JP,  INC., 
BOX  1155,  W.  BABYLON,  NY  11704 

Ch4  -  i-REE  MEMBERSHIP  &  LIST 
Public  Domain  Disks  S3  each  or  less! 
Northland,  P.O.  Box  2413 
Homer,  Alaska  99603  SASE  please. 

FREE  APPLE  SOFTWARE 

Over  1000  Public  Domain  Programs  on  50 
diskettes-  S5  each  plus  SI  for  shipping  per  order. 
Send  SI  for  catalog,  refundable  with  order. 
C&H  ENTERPRISES 
PO  Box  29243.  Memphis,  TN  38127 

TAX  SPREADSHEET  FOR  ATARI.  APPLE.  IBM. 
Ch4,  C123,  Plus/4.  TI99/4A.  SI9.95  +  S2  s/h. 
Forms  1040,  ia40A,  A,  B,  C,  D,  E,  F,  5E.  2106, 
2441.  Yearly  updates  SIO.  Prints  IRS  Forms!  TI 
w/,XBasic;  Apple  II,  Atari  w/JSK  or  more.  Specify 
disk  or  tape.  Steve  Karasek,  855 
Diversey.  St.  Louis,  MO  63126  (314)  961-2052 

Cheap  Software  /  IBM,  PCir.  Compatibles. 
5.25  or  3.5  disk.  For  catalog  of  diskettes 
available  for  education,  games,  business,  etc. 
Write:  Morning  Star  Industry,  Bex  3095, 
Ann  Arbor,  NH  48106 


MISCELLANEOUS 


SAFEWARE  INSURES  COMPUTERS  against 
fire,  theft,  &  power  svirges  for  as  little  as 
$39,  Call  Safeware,  The  Insurance  Agency  Inc. 
at  800/848-3469,  Columbus.  Ohio. 

PERSONAL  COMPUTER  OWNERS  CAN  EARN 

$1000  to  S5000  monthly  selling  simple  services 

part  time.  Free  list  of  1()0  best  services. 

A.I.M.L.U- 

PO  Box  60369,  San  Diego,  CA  92106 


COMPUTE!  Classified  is  a  low-cost  way  to  tell  over  350,000  microcomputer 
owners  about  your  product  or  service. 

flates:  i::^  ivr  liruv  rmnimum  i>[  ii)ur  lines.  Anv  i*r  jll  ol  ttic  first  line  set  m  c.ipital  U'tters  .u  im  cli,!r[;L\  Adii 

SIS  ,>,T  line  for  biildfjce  words,  or  $50  fnr  Ih'e  cnlire  ad  set  in  l>oldlace  (any  number  of  lines.l  Iiiquirf  abmil 

Ji^pfav  rates. 
Terms:  frepavment  is  required-  Cficck,  miinev  order.  American  Express,  Visa,  or  MasterCard  is  accepted. 

Make  checks  navable  ti>  COMPUTE'  Publiciitions. 
Form:  Adi  .ire  subiecl  in  publisher-^  approval  anit  must  he  either  typed  or  legibly  primed.  One  line  eqiLils  40 

k-lU'r^  anii  <p.ues  betv^een  ivi>rds.  Please  underline  wr>rds  to  be  set  in  boldtace. 
General  Infofmatlont  Advertisers  using  post  office  box  numbers  in  their  ads  must  supply  permanent  address 

.111,1  leli'ph,ine  numbers.  Ad  will  appear  in  nevt  available  issue  after  receipt. 
Closing:  intti  of  the  third  monlh  precedinR  cover  dale  <e,t,  June  issue  closes  March  lOthF  Send  ordor  and 

lemiiunce  lo   Hjrrv  Blair,  Classified  Manager.  COMPUTF!.  PO.  Box  5-106.  CroensbiiKi.  NC  27403.  To  place 

jn  ,id  bv  phime,  cVll  Harrv  Blair  at  |<)l'»)  in-<lfK)9 
Notice:  CDMrUTE!  PuWiralions  cannot  be  responsible  fnr  offers  or  claims  of  adveni-cT*.  Inn  mil  jltempl  to 

MTi',-n  out  misleading  or  questionable  copy. 
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readers. 
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"PIRATES!  h  cxccl!en{.  .  .;i  great  iw^fJitniLklinj;  f;,inic,  enor- 
tnously  good  fun. .  .rr  should  keep  ttiu  pln}ing  tor  mimthf. " 
(Popular  Computing  Weekly,  U.K.) 

".  ,  .yciur  game  has  ^xceed<;d  my  ivildest  expectation!*. . ./ 

tore  ran  up  more  game  r/mc  on  the  computer  in  3  davs  than  in  the 
entire  mtmrh  prfiiouf. "  (CJ.M.,  Buffalo,  N.Y.) 

"77ms  is  one  of  the  must  magniflcent  names  I  haw  t-icr  hud  the 
pleasure  ofphying!  It  has  exactly  the  balance  of  realism,  phy- 
ahilirj-  and  silliness  that  I  most  adore  "  Cl.l*.S.,  San  Diego,  CA) 

"PIRATES!  IS  a  big  hit  in  the  Dallas  area.  Tliisgamc  is  one  o/'>»ur 
best  eSvrts.  The  gmphics  on  all  .*icTcens  itre  cxcelletttf  You  have 
done  it  again,  Microprosc. " 

(Larry  Medtln,  DallasGamers,  in  Game  News) 

PIRyUKI  It's  anothCT  winner  from  Sid  Meier,  autlior 
and  designer  of  tlie  awitrd-winning  F-15  STRIKE 
EAGLE  and  SILENT  SERVICE.  His  CTeati\e  genius 
has  combined  the  best  of  simulation,  role-pla>ing 
and  strategy'  games  in  this  high  ,sea.s  adventure. 

You're  a  17th  century  privjiteer  capt;un  in  the 
diickof  the  action  on  the  Spanish  Mala  PIRATES! 


diallengcs  j'our  reflexes  in  simulated  sailing,  sea 
and  land  battles  and  s"wordfights.  It  tesLs  your  cun- 
ning in  b;irg;iining  with  merchants  and  negotiating 
with  government  ofiSciiils.  From  the  romance  and 
intrigue  of  more  than  50  foreign  ports  to  the  thrill 
and  excitement  of  buried  treasure,  PIRATES!  takes 
)t)u  on  an  extiiLirating  quest  fi)r  power  and  prestige. 

PIRiVTES!  is  available  at  your  local  "Valued 
MicToProse  Retailer"  (VMR).  Call  for  locations  nearest 
>'ou.  Get  it  todayfor  Commodore  64/ 1 28,  IBM-PC/ 
compatibles  and  the  Apple  lie  and  1 28K  He.  Call  or 
write  for  MC/VISA  orders  if  product  not  found 
tocally. 


Ai^PROSE 


180  Lakelront  Drive  •  Hunt  Valley,  MO  21030 
Inlormalior,  and  Ordars:  (301)  771-1151 


.     -V^ 


1985-  Htgh-performance  Jet  flight 
simulator  for  the  IBM, 
Commodore  64,  and  Apple  il 
computers 


■l^J  Si  nSO^p jU^  LlBIUwA'MI  1^^ 


1987  •  Expanding  Scenery  disk 

coverage;  East  Coast,  Japan, 
&  Europe 


1 9S6  -  Flight  Simulator  II  for  the  68000 

computers 


1  >i"»-       —pTTi^    'j.,a.^  WSBitM^SLii 


1982/1983  -  Microsoft  Flight  Simulator 
&  Flight  Simulator  II 


iiV^l-  in  gii."<"t5i'  rtiK'tit'ift^i  iw 

197S  -  3D  graphics  applied  to  the 

original  FS1  Flight  Simuiatorfor 
the  new  Apple  II  and  THS-SO 

computers 


1977  -  SubLOGIC's  3D  graphics 

pacKage  in  BASIC  and  M6800^ 
Assambly  Laniatj^ne  ' 


Some  say  our  technology  has  helped  us  define  the  state  of  the  art  in  flight  simulation.  We  believe  our  ten  years  of  dedication 
have  gotten  us  where  we  are  today.  .  'if 

SubLOGIC's  first  black  &  white  3D  graphics  routines,  developed  in  1 977,  paved  the  way  for  our  introduction  to  flight  simula- 
tion and  aerial  combat  gaming  theory.  Our  second-generation  Flight  Simulator  II  was  so  well  conceived  that  even  we  find  it 
difficult  to  Improve  upon.  Jet's  spectacular  land  and  sea  battle  scenarios  set  another  classic  milestone  in  state-of-the-art 
simulation  gaming.  Scenery  concepts  incorporated  into  SubLOGIC  flight  simulation  products  right  from  the  start  continue  to . 
evolve  as  we  introduce  new,  more  beautifully  detailed  areas  of  the  world  to  explore.  And  coming  in  1 988  -  a  flight  control  yoke 
for  even  more  realism! 


We  invite  you  to  help  us  celebrate  our  first  decade  of  success,  and  share  in  our  anticipation  of  the  next  ten  years  to  come, 
SubLOGIC  tenth-anniversary  promotional  shirts  and  posters  are  available  at  your  dealer  or  directly  from  SubLOQlC.  See  your 


,aeaier,  ui  wriie  or  tan  us  lor  fTiore  iniorrneiuon. 

SQ^^LDGIC   m 

^^^ 

0\^ 

Corporation              ^^H 

713  Edgebrook  Drive               ^^^ 
Champaign  IL  61820 
Ul'1359-»«2Tel«i:I0S995 
ORDER  LINE:  (800}  637-4983 

(excopt  in  \\\inon\ 

UOGIC 
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